如何在vba中实现满足条件的单元格（多个条件只要满足其中一个）填充相应的颜色？

660yz

如图： A11、B11、C11的数据为436;
           A12、B12、C12的数据为116 ;
           A13、B13、C13的数据为190 ;
           A14、B14、C14的数据为082;
           A15、B15、C15的数据为098;
如何在表中按列查找出包含436任意一个数、116任意一个数、190任意一个数、082任意一个数、098任意一个数的连续单元格区域，并标注为黄色。比如：
6
1
0
0
9

ykcbf1100

楼主上个附件吧。
没有附件很难得到满意的回复。

gwjkkkkk

第二例是模拟结果吗？

660yz

gwjkkkkk 发表于 2024-1-25 10:38
第二例是模拟结果吗？

是的，E、F、G列是模拟结果。

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, k&, isFlag As Boolean
   
    Application.ScreenUpdating = False
   
    ar = [A11:C15].Value
    For i = 1 To UBound(ar)
        ar(i, 1) = "," & Join(Application.Index(ar, i), ",") & ","
    Next i
    With [E1].CurrentRegion
        br = .Value
        .Interior.Color = xlNone
        For j = 1 To UBound(br, 2)
            For i = 1 To UBound(br) - UBound(ar) + 1
                isFlag = True
                For k = 0 To UBound(ar) - 1
                    If InStr(ar(k + 1, 1), br(i + k, j)) = False Then
                        isFlag = False: Exit For
                    End If
                Next k
                If isFlag Then
                    .Cells(i, j).Resize(UBound(ar)).Interior.Color = vbGreen
                End If
            Next i
        Next j
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考 附件。。。

660yz

gwjkkkkk 发表于 2024-1-25 19:46
Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, k&, isFlag As Boolean

非常感谢老师。麻烦你帮我再加段代码，把满足条件的单元格区域（也就是绿色区域）复制到工作表下方的空白处，不胜感谢！！！

gwjkkkkk

660yz 发表于 2024-2-13 15:49
非常感谢老师。我把宏复制到数据较多的电子表格中运行时，会弹出“运行时错误"13"类型不匹配“。点击调试 ...

上传附件看看。。。

660yz

gwjkkkkk 发表于 2024-2-13 16:49
上传附件看看。。。

老师您好，提示出错的问题已经解决了，麻烦你帮我再加段代码，把所有满足条件的单元格区域（也就是绿色区域）复制到工作表下方的空白区域处（如附件中的A20、B20、C20)，不胜感谢！！！

gwjkkkkk

660yz 发表于 2024-2-14 08:16
老师您好，提示出错的问题已经解决了，麻烦你帮我再加段代码，把所有满足条件的单元格区域（也就是绿色区 ...

请参考附件。。。