请问怎么查找两列姓名相同或不相同

mohao

shenjianrong163 发表于 2020-1-31 13:15
Sub test()
    Dim arr, i, j
    With Worksheets("Sheet1")

能不能解释一下代码，学习一下？

Sub test()
    Dim arr, i, j
    With Worksheets("Sheet1")
        arr = .UsedRange
        Set oRegex = CreateObject("Vbscript.Regexp")
        oRegex.Global = True
        oRegex.Pattern = "[\u0001\u0009\u000a\u000d\u001c-\u0020\u007f-\u00fe]"
        For i = 2 To UBound(arr)
            For j = 1 To UBound(arr, 2)
                If IsError(arr(i, j)) Then arr(i, j) = ""
                arr(i, j) = oRegex.Replace(arr(i, j), "")
            Next