[已解决][求助]请高手给个两列查找相同数值的代码并做记号

东方智彩

如题,在附件,谢谢!
oFHRYIZS.rar (15.99 KB, 下载次数: 33)

2009-10-29 22:09 上传

点击文件名下载附件
[求助]请高手给个两列查找相同数值的代码并做记号

最佳答案

月排行榜 / 总排行榜

雨狐

2009-10-29 22:44

有版主在不敢乱写，忍不住还是写了一点：

Sub a()
Dim d As Object
Dim i%, k%
Range("b:b").ClearContents
Set d = CreateObject("Scripting.Dictionary")
For i = 3 To [c65536].End(3).Row
    d(Cells(i, 3).Value) = "*"
Next
For k = 3 To [a65536].End(3).Row
    Cells(k, 2) = d(Cells(k, 1).Value)
Next
End Sub

跳转到最佳答案楼层

雨狐

是不是：

Sub a()
Dim i%
For i = 3 To [a65536].End(3).Row
    If CInt(Cells(i, 1)) = CInt(Cells(i, 3)) Then
        Cells(i, 2) = "*"
    Else
        Cells(i, 2) = ""
    End If
Next
End Sub

HYY514

Sub f(r, y)
If r = y Then Exit Sub
If Cells(r, 1) = Cells(r, 3) Then Cells(r, 2) = "*"
f r + 1, y
End Sub
Sub g()
f 1, [c65536].End(xlUp).Row
End Sub

HYY514

Sub g()
f 3, [c65536].End(xlUp).Row
End Sub

雨狐

学习了

东方智彩

谢谢楼上的老师和版主,但是我测试后发现都只查找了一小部分,我是想让C列的全部在A列查找后并做上标记

雨狐

有版主在不敢乱写，忍不住还是写了一点：

Sub a()
Dim d As Object
Dim i%, k%
Range("b:b").ClearContents
Set d = CreateObject("Scripting.Dictionary")
For i = 3 To [c65536].End(3).Row
    d(Cells(i, 3).Value) = "*"
Next
For k = 3 To [a65536].End(3).Row
    Cells(k, 2) = d(Cells(k, 1).Value)
Next
End Sub

东方智彩

哈哈谢谢雨狐 老师了!就是这个效果!谢谢

zsd5237

学习[em02][em02]