请老师及高手帮助看这个代码怎么写

dfzc · 发表于 2012-3-14 11:51

一个对比查找的代码,请老师及高手帮助解决个代码,附件有说明,谢谢

Book1.zip (8.01 KB, 下载次数: 8)

QLZ0602 · 发表于 2012-3-14 12:23

看不懂规则{:041:}

dfzc · 发表于 2012-3-14 13:12

一组数据查找另一组数据中是否有大于0个数码相同的,有显示OK,没有计为1-3次,一组数码只查找三行,对比三行也没有相同的计为"×",继续从同一行的这个数据开始继续下查,其它过行的就略过了，等待高手解决，谢谢

蓝桥玄霜 · 发表于 2012-3-14 17:24

Sub yy()
Dim Brr, i&, Myr&, Err, j&, a$
Sheet1.Activate
[g:g].ClearContents
Brr = [b4].CurrentRegion
Myr = [e65536].End(xlUp).Row
Err = Range("e4:e" & Myr)
For i = 1 To UBound(Err)
If Err(i, 1) <> "" Then
For j = 1 To Len(Err(i, 1))
a = Mid(Err(i, 1), j, 1)
If InStr(Brr(i + 1, 1), a) Then
Cells(i + 4, 7) = "OK": GoTo 100
End If
Next
For j = 1 To Len(Err(i, 1))
If InStr(Brr(i + 2, 1), a) Then
Cells(i + 4, 7) = "1": i = i + 1: GoTo 100
End If
Next
For j = 1 To Len(Err(i, 1))
If InStr(Brr(i + 3, 1), a) Then
Cells(i + 4, 7) = "2": i = i + 2: GoTo 100
End If
Next
i = i + 3
End If
100:
Next
End Sub

复制代码

蓝桥玄霜 · 发表于 2012-3-14 17:25

请见附件。

dfzc · 发表于 2012-3-14 18:23

本帖最后由 dfzc 于 2012-3-16 13:46 编辑

蓝桥玄霜老师你好，这个代码的意思没有正解，可能是我说的不详，
如E列和B列查找对比查找是否含有大于0个相同的数码，也就是有1个至3个都为OK，没有的就记为1次，当出现相同的了就记OK结束，
进行下一个的查找，没有需共往下查3行的，记为1次、2次，三次还没有的显示“×”结束，再进行下一组数据的查找，
这里是查到哪行再从E列的哪行开始取数据和B列的查找，统计的不是E列与B列中了几个数码,"1","2","×"是记录第几次出现了相同或没有相同数码,不知这样讲能否理解，还要辛苦老师了

dfzc · 发表于 2012-3-14 21:10

等待中...........................

dfzc · 发表于 2012-3-15 16:42

再顶,继续等啊..........{:011:}

dfzc · 发表于 2012-3-16 13:43

老师很忙呀,继续等待.................

dfzc · 发表于 2012-3-16 18:29

还要请蓝桥玄霜老师忙里抽闲再给看下这个问题啊?

		自动登录	找回密码
密码			注册