查询A列数据并标色的问题

杨小妹

附件 查询A列数据并标色.rar (13.02 KB, 下载次数: 7)

2024-6-23 16:30 上传

点击文件名下载附件

谢谢老师！

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i& ', j&, r&
   
    Application.ScreenUpdating = False
   
    With Range("A1", Cells(Rows.Count, "A").End(xlUp))
       ar = .Value
       .Interior.Color = xlNone
        For i = 2 To UBound(ar)
            If (ar(i, 1) <> ar(i - 1, 1)) And Right(ar(i, 1), 1) > Right(ar(i - 1, 1), 1) Then
                .Cells(i - 1, 1).Interior.Color = vbYellow
                .Cells(i, 1).Interior.Color = vbYellow
            End If
        Next i
    End With
        
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

。。。。。。。。。

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.23
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         .Cells.Interior.ColorIndex = 0
   
5.         For i = 1 To r - 1
   
6.             If .Cells(i, 1) = "A2" And .Cells(i + 1, 1) = "A4" Then
   
7.                 .Cells(i, 1).Resize(2).Interior.ColorIndex = 8
   
8.                 i = i + 1
   
9.             End If
   
10.         Next
    
11.     End With
    
12. End Sub
    

复制代码