[已解决]帮忙简化下以下代码

ruhong18

Sub 标注颜色()

    Range("A11:I11,A21:I21,A31:I31,A41:I41,A51:I51,A61:I61,A71:I71,A81:I81,A91:I91,A101:I101,A111:I111,A121:I121,A131:I131,A141:I141。。。。。。。依此类推" _
        ).Select
    Range("A101").Activate
    With Selection.Interior
        .ColorIndex = 40
        .Pattern = xlSolid
    End With
    Range("K80").Select
End Sub

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-20 21:39

Sub demo()
   For i = 11 To 500 Step 10
      [a1:i1].Offset(i - 1).Interior.ColorIndex = 40
   Next
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   For i = 11 To 500 Step 10
      [a1:i1].Offset(i - 1).Interior.ColorIndex = 40
   Next
End Sub


祝順心，南無阿彌陀佛！

ruhong18

cutecpu 发表于 2021-10-20 21:39
Sub demo()
   For i = 11 To 500 Step 10
      [a1:i1].Offset(i - 1).Interior.ColorIndex = 40

前辈这是您帮忙写的代码，奇怪后面为何最后一行及其以下的数据不能显示高亮？
Sub demo()Dim ra As Range, flag As Boolean
ARR = [A1].CurrentRegion.Value
lstc = UBound(ARR, 2)
For r = 11 To UBound(ARR, 1) Step 10
For c = 3 To lstc
For i = 1 To 9
If r + i > UBound(ARR, 1) Then
flag = True
Exit For
End If
If ARR(r + i, lstc) = ARR(r, c) Then
If ra Is Nothing Then
Set ra = Cells(r, c)
Else
Set ra = Union(ra, Cells(r, c))
End If
Set ra = Union(ra, Cells(r + i, lstc))
End If
Next
If flag Then Exit For
Next
If flag Then Exit For
Next
If Not ra Is Nothing Then ra.Interior.Color = vbYellow
End Sub