已实现隔行上色，但在有合并单元格时失效，求高手解决

oukesen1

已实现隔行上色，但在有合并单元格时失效，求高手解决。。。

chis3

Sub test()
    Dim rng As Range
    Dim i As Integer
    For Each rng In ActiveSheet.UsedRange
        If rng.MergeCells = True Then
            i = rng.Offset(0, 1).Column - 1
            Range(Cells(rng.Row, rng.Column), Cells(rng.Row, i)).Interior.Color = vbGreen
        End If
    Next rng
End Sub

這樣也可以吧

oukesen1

chis3 发表于 2019-1-19 13:12
Sub test()
    Dim rng As Range
    Dim i As Integer

不错，可以上色了，尽管颜色不一致，谢谢。。