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

Question

我要查询的这两列 里面包含了字母 但是字母是一样的 这个有关系么？大牛大神们 求赐教

Answer 1

Sub MarkSome()
Dim i As Integer
Dim j As Integer

For 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
Next
nx:
Next

End Sub追问

正在运行着了 但是这个excel死在那里了 一直未响应了 大哥 我是新手 能给解释一下每行 或者主要行的意思么 谢谢了 975519567 想多多请教

追答

Sub MarkSome()
Dim i As Integer
Dim j As Integer

For i = 1 To 15000 '循环B列（即为要查找内容）
If CStr(Cells(i, 2).Value) = "" Then Exit For '判断如果B列的值为空了 跳出循环
For j = 1 To 15000 '循环A列（即为存在重复值得列 或者叫目标列）
If CStr(Cells(j, 1).Value) = "" Then GoTo nx '判断如果A列的值为空了 跳到下一个B列值 进行判断
'------------------------------------------------
'主要地方 判断A列中是否存在B列的值 如果存在 标记颜色
If CStr(Cells(i, 2).Value) = CStr(Cells(j, 1).Value) Then
Cells(j, 1).Interior.ColorIndex = 6 '标记颜色
End If
'------------------------------------------------
Next
nx:
Next

End Sub

Answer 2

我的语文学得不好，能重新说一下吗？包括截图，包括数据源，包括目标结果。等等等等。追问

就是这个东西 想要在B列里面查A里面的数据在B列里面是否已经有了 有了 就标记出来 

追答

在C1单元格输入公式
=countif(B:B,A1)
下拉。

追问

额 大哥 是这样的 我的这个数量在九十多万了 下拉.....这个就不太好使了 得需要用那个VBA 不是本行查找 是A1在B列看有没有 A2在B列有没有 A3在B列里面有没有 是这样的 麻烦了