|
本帖最后由 hfwufanhf2006 于 2020-6-17 12:06 编辑
我估计你是想找全部的组合,即使在这么多组合中,我也只能找到一组是对得上的,在 ao564-ao567 区域,其它的组合都对不上:
Dim arr
Dim arr1
Range("j10:au5566").Interior.Pattern = xlNone
arr = Range("j10:au5566")
arr1 = Range("j6:au10")
For m = 1 To UBound(arr1, 2)
s1 = arr1(1, m)
s2 = arr1(2, m)
s3 = arr1(3, m)
s4 = arr1(4, m)
For i = 1 To UBound(arr) - 3
For k = 1 To UBound(arr, 2)
If arr(i, k) = s1 And arr(i + 1, k) = s2 And arr(i + 2, k) = s3 And arr(i + 3, k) = s4 Then
sl = sl + 1
Range(Cells(9 + i, k + 9), Cells(12 + i, k + 9)).Interior.Color = 65535
End If
Next k
Next i
Next m
其中 sl 是找到的组合个数,没什么实际用处,就是告诉你找到的数量而已;
|
评分
-
查看全部评分
|