杭州交通信息网2-乙基蒽醌生产厂家:作一个excel-VBA宏
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 02:30:13
在一个sheet内的A列，检查在A列所有单元格内输入的字符串的重复性。
运行宏后，可以把重复的字符串字体颜色变红。
运行宏后，可以把重复的字符串字体颜色变红。
Sub noky()
Dim i, j As Integer
For i = 1 To Range("a65536").End(xlUp).Row
For j = i + 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1) = Cells(j, 1) And Cells(j, 1).Font.Color <> vbRed Then
Cells(i, 1).Font.Color = vbRed
Cells(j, 1).Font.Color = vbRed
End If
Next
Next
End Sub