VBA COUNTIF 判断重复问题

cokoed44

请教各位老师，小弟初学VBA想做个COUNTIF 函数，但是执行起来发现问题多多，请各位老师看看我写的代码错在哪里，它没法正常运行，就是我在一个表里的A列有数据，如果里面有重复的话在这个表的C列的相应单元格会显示出来，如果重复数字变成1 。没重复就为空值。自己写了一个，但是发现他只判断第一个数据，如果重复就显示为1，然后就停止运行了，不会往下执行，明明后面还有很多重复数据的说。不知道问题出在哪里，请各位老师指教下。
Dim i As Long
Dim m As Long
m = Sheet1.Range("a65535").End(xlUp).Row
For i = 2 To m
        If Application.CountIf(Range("a2:a" & i), Range("a" & i)) = 1 Then
       Range("C" & i) = ""
        Else
       Range("C" & i) = 1
    Exit For
   End If
Next i
新建 Microsoft Excel 工作表 (2).rar (8.46 KB, 下载次数: 64)

2013-4-24 12:52 上传

点击文件名下载附件

cokoed44

有高手帮帮忙吗

cokoed44

自己研究出来了，但请问我想把C列里面为1的单元格删除，请问该怎么写谢谢各位了，请帮忙下

grf1973

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Long
   
3.     Dim m As Long
   
4.     m = Sheet1.Range("a65535").End(xlUp).Row
   
5.     For i = 2 To m
   
6.             If Application.CountIf(Range("a2:a" & i), Range("a" & i)) > 1 Then Range("A" & i) = ""
   
7.     Next i
   
8. End Sub

复制代码

Evanish

Sub t()
Dim m As Integer,i as Integer
m = Cells(Rows.Count, 1).End(xlUp).Row
For i = m To 2 Step -1
    If Application.WorksheetFunction.CountIf(Range("a2:a" & i), Range("a" & i)) > 1 Then Rows(i).Delete
Next

End Sub

bearberry

上面都是高手，楼主的有语句EXIT FOR，已经退出，肯定不会再判断下去。

qbtan85

为什么不能判断字母加数字的呢？如附件？