[已解决]老师：如何设置同列的单元格文本或者数值的唯一

yxz543

老师：如何设置同列的单元格文本或者数值的唯一 如何设置列单元格的唯一性.zip (1.92 KB, 下载次数: 9)

2011-12-7 15:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

lisachen

2011-12-7 16:18

1. Sub juedui()
   
2. For x = 1 To [a65536].End(xlUp).Row
   
3. If Application.CountIf(Range("a:a"), Cells(x, 1)) > 1 Then
   
4. Cells(x, 1).Interior.ColorIndex = 3
   
5. End If
   
6. Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

lisachen

lisachen

1. Sub juedui()
   
2. For x = 1 To [a65536].End(xlUp).Row
   
3. If Application.CountIf(Range("a:a"), Cells(x, 1)) > 1 Then
   
4. Cells(x, 1).Interior.ColorIndex = 3
   
5. End If
   
6. Next
   
7. End Sub

复制代码