第一问答网»论坛 › 中问网 › 问答 › excel里面VBA检查重复数：我的表名是Ax，想在B列里面查 ...

excel里面VBA检查重复数：我的表名是Ax，想在B列里面查找是否有A列的重复数！我是新手能否微微注释一下

11 |

1 | 2013-4-28 13:40:21 | 显示全部楼层 |阅读模式

Sub MarkSome()Dim i As IntegerDim j As IntegerFor i = 1 To 15000 'B
If CStr(Cells(i, 2).Value) = "" Then Exit For
For j = 1 To 15000 'A
If CStr(Cells(j, 1).Value) = "" Then GoTo nx
If CStr(Cells(i, 2).Value) = CStr(Cells(j, 1).Value) Then
Cells(j, 1).Interior.ColorIndex = 6
End If ...

使用道具举报