对A列查重，改变填充色并整行改变字体颜色

caitjcai

大家好，想用VBA编写，对A列（第1列）查重，如果重复，则A列重复单元格填充色改为colorindex 45，该单元格所在行字体颜色改为colorindex 5.
本想录制一个宏瞅瞅的，但是怎么改都改不对，请大家帮帮忙，谢谢

media888

Private Sub CommandButton1_Click()


For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For j = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row


If Cells(i, 1) = Cells(j, 1) And j <> i Then Cells(j, 1).Interior.ColorIndex = 45

Next
Next
End Sub

caitjcai

media888 发表于 2020-1-11 18:42
Private Sub CommandButton1_Click()

谢谢您！可以的。