求助

hua221

求大神们指点，按条件填充单元格。

LIUZHU

又是双色球吗？

hua221

LIUZHU 发表于 2023-1-3 11:10
又是双色球吗？

不是体彩的

nicleyuan

LIUZHU 发表于 2023-1-3 11:10
又是双色球吗？

你是不是知道的太多了。

liulang0808

Sub test()
    On Error Resume Next
    Set Rng = Nothing
    For Each rn In [a1:u321]
        If rn.Interior.ColorIndex = 6 Then
            w = 0
            For j = -1 To 1
                If rn.Offset(-1, j).Interior.ColorIndex = 6 Then
                    w = w + 1
                End If
                If rn.Offset(1, j).Interior.ColorIndex = 6 Then
                    w = w + 1
                End If
                If rn.Offset(0, j).Interior.ColorIndex = 6 Then
                    If j <> 0 Then w = w + 1
                End If
            Next j
            If w >= 4 Then
                If Rng Is Nothing Then
                    Set Rng = rn
                Else
                    Set Rng = Union(Rng, rn)
                End If
            End If
        End If
    Next rn
    If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 3
End Sub

liulang0808

附件内容供参考。。。。。。。

hua221

十分感谢您的帮助！！！能否帮忙修改一下，是我表述不准确，4个相同颜色的单元格这一条件是指同一方向，要么横向，要么纵向，要么斜向，如

笨鸟飞不高

joy.008@163.com

LIUZHU 发表于 2023-1-3 11:10
又是双色球吗？

为什么是  又 ???

micch