[已解决]为何最后一行及其以下的数据不能显示高亮？

ruhong18

为何最后一行及其以下的数据不能显示高亮？

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-26 09:58

ruhong18 发表于 2021-10-26 09:35
您好前辈，没有找到宏模块哦

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 GoTo 1
            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
1:    Next
   Next
   If Not ra Is Nothing Then ra.Interior.Color = vbYellow
End Sub

跳转到最佳答案楼层

hfwufanhf2006

初步猜想，看这里：
        For i = 1 To 9
            If r + i > UBound(arr, 1) Then
               flag = True
               Exit For
            End If


你的代码是先行后列，当r=291行，第一个数是28，不符合条件，然后循环 i=1 to 9，当 i>7时，满足：
            If r + i > UBound(arr, 1) Then


第二个数30还没轮到就退出了；

cutecpu

ruhong18

cutecpu 发表于 2021-10-26 01:28

您好前辈，没有找到宏模块哦

cutecpu

ruhong18 发表于 2021-10-26 09:35
您好前辈，没有找到宏模块哦

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 GoTo 1
            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
1:    Next
   Next
   If Not ra Is Nothing Then ra.Interior.Color = vbYellow
End Sub

ruhong18

cutecpu 发表于 2021-10-26 01:28

辛苦您了，那么晚还没休息！

ruhong18

您好，前辈：请问下，当J列有内容的时候，执行结果出错？   可以修改下，不受J列影响可以吗？

cutecpu

ruhong18 发表于 2021-11-16 09:34
您好，前辈：请问下，当J列有内容的时候，执行结果出错？   可以修改下，不受J列影响可以吗？

原先代码：ARR = [A1].CurrentRegion.Value
修改代码：ARR = range("a1:i" & [i1].end(4).row)