Premere " Alt " e " F11 " per andare in VB Editor .
2
Clicca su " Inserisci- > Modulo " per visualizzare un nuovo codice . finestra
3
Incollare il codice seguente nella finestra : Sub DupsGreen ( ) Application.ScreenUpdating = FalseRng = Selection.Rows.CountFor i = RNG per 1 Step- 1myCheck = ActiveCellActiveCell.Offset ( 1 , 0 ) . SelectFor j = 1 To iSe ActiveCell = myCheck ThenSelection.Font.Bold = TrueSelection.Font.ColorIndex = 4End IfActiveCell.Offset ( 1 , 0 ) . SelectNext jActiveCell.Offset ( -i , 0 ) . SelectNext iApplication . ScreenUpdating TrueEnd
= Sub
software © www.354353.com