字符串右边的第3、4位数据可以进行寻找和比较吗？

quqiyuan

代码如下。。。
Sub test1()
    Dim a()
    Application.ScreenUpdating = False
    a = [{"Sheet1","Sheet2","Sheet3"}]
    For Each aa In a
        With Sheets(aa)
            .UsedRange.Interior.Color = xlNone
            Arr = .Range(.[a1], .UsedRange)
            For j = 2 To UBound(Arr, 2) - 1
                For i = 2 To UBound(Arr)
                    s = Arr(i, j)
                    For k = 2 To UBound(Arr)
                        If Right(Arr(k, j + 1), 2) = "00" Then
                            If Mid(Right(Arr(k, j + 1), 4), 1, 2) = Mid(Right(s, 4), 1, 2) Then
                                .Cells(i, j).Interior.Color = RGB(255, 192, 0)
                            End If
                        End If
                    Next
                Next
            Next
        End With
    Next
    Beep
    Application.ScreenUpdating = True
End Sub

gzminge

quqiyuan 发表于 2024-10-28 15:34
代码如下。。。
Sub test1()
    Dim a()

大哥在吗？现在能正常使用了。
请你讲解一下程序可以吗？谢谢！

sero61

你这是要同一行比较还是全区域比较
两种结果是不一样的

gzminge

sero61 发表于 2024-10-29 16:22
你这是要同一行比较还是全区域比较
两种结果是不一样的

问题已经解决了，你能不能帮忙讲解一下，以下程序每一行的含义，可以吗？谢谢！

Sub test1()
    Dim a()
    Application.ScreenUpdating = False
    a = [{"Sheet1","Sheet2","Sheet3"}]
    For Each aa In a
        With Sheets(aa)
            .UsedRange.Interior.Color = xlNone
            Arr = .Range(.[a1], .UsedRange)
            For j = 2 To UBound(Arr, 2) - 1
                For i = 2 To UBound(Arr)
                    s = Arr(i, j)
                    For k = 2 To UBound(Arr)
                        If Right(Arr(k, j + 1), 2) = "00" Then
                            If Mid(Right(Arr(k, j + 1), 4), 1, 2) = Mid(Right(s, 4), 1, 2) Then
                                .Cells(i, j).Interior.Color = RGB(255, 192, 0)
                            End If
                        End If
                    Next
                Next
            Next
        End With
    Next
    Beep
    Application.ScreenUpdating = True
End Sub