ç¶åæä¸è¡ï¼ç¨æ¡ä»¶æ ¼å¼å¸æ¾ï¼ç¶ååæ¢å½å¶ï¼æå¼visual basic ä¸ç模å
æéæ©çèå´è¯¥æä¸ä¸ªfor循ç¯å°±è¡äº
å°±æ¯å¨å¤é¢å个for循ç¯ï¼åæè¿è¡ï¼å°±é½è§£å³äºï¼
Sub å®1()
'
' å®1 å®
'
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
Rows(i).Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Next i
End Sub