下界越标9，不知我错在那？

青青的河边草

代码作用是：
在表中，j6-j7-j8-j9组成一个标准框，按"查询"钮，在j10----au5566范围内，只要某列中有4个连在一起的单元格内数与标准框内数及排列方式一样，那么这几个单元格就显黄色。
但按钮后，提示：下界越标9，不知我错在那？请老师们指出。谢谢。

hfwufanhf2006

我估计你是想找全部的组合，即使在这么多组合中，我也只能找到一组是对得上的，在 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 是找到的组合个数，没什么实际用处，就是告诉你找到的数量而已；

青青的河边草

hfwufanhf2006 发表于 2020-6-17 10:46
我估计你是想找全部的组合，即使在这么多组合中，我也只能找到一组是对得上的，在 ao564-ao567 区域，其它 ...

太好用了，谢谢！

青青的河边草

hfwufanhf2006 发表于 2020-6-17 10:46
我估计你是想找全部的组合，即使在这么多组合中，我也只能找到一组是对得上的，在 ao564-ao567 区域，其它 ...

如果将j6-j7-j8-j9改成j7-j8-j9，j7-j8-j9组成一个标准框，按"查询"钮，在j10----au5566范围内，只要某列中有4个(改成3个)连在一起的单元格内数与标准框内数及排列方式一样，那么这几个单元格就显黄色。
您编的代码应怎么改？谢谢。

hfwufanhf2006

青青的河边草 发表于 2020-6-17 13:09
如果将j6-j7-j8-j9改成j7-j8-j9，j7-j8-j9组成一个标准框，按"查询"钮，在j10----au5566范围内，只要某列 ...

改下面这部分：

   s1 = arr1(1, m)       '第一行
   s2 = arr1(2, m)       '第二行
   s3 = arr1(3, m)       '第三行
   s4 = arr1(4, m)       '第四行，如果只要3个，这行删掉
   For i = 1 To UBound(arr) - 3             '截止到 倒数第4行，如果只有3个数，改成 ubound(arr)-2
       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   '这个条件有4个项，删掉最后一项

还有，数组定义区域也要修改：
arr1 = Range("j6:au10")     '原来这里其实是多读取了一行，但不影响结果
改成：
arr1 = Range("j7:au9")

青青的河边草

hfwufanhf2006 发表于 2020-6-17 13:16
改下面这部分：

   s1 = arr1(1, m)       '第一行

原来是有4个相同的就有4个单元格显色，如果改为有3个相同的就应该有3个单元格显色，而不是4个，怎么改？

hfwufanhf2006

青青的河边草 发表于 2020-6-17 14:17
原来是有4个相同的就有4个单元格显色，如果改为有3个相同的就应该有3个单元格显色，而不是4个，怎么改？
...

把：
Range(Cells(9 + i, k + 9), Cells(12 + i, k + 9)).Interior.Color = 65535
改成：
Range(Cells(9 + i, k + 9), Cells(11 + i, k + 9)).Interior.Color = 65535    '行数减少 1 行

青青的河边草

hfwufanhf2006 发表于 2020-6-17 15:21
把：
Range(Cells(9 + i, k + 9), Cells(12 + i, k + 9)).Interior.Color = 65535
改成：

谢谢。