对齐

ddz79101

老师！有2列数据，我想根据单元格的汉字符对齐。谢谢！

饮冰e士

没看懂是什么意思

ddz79101

饮冰e士 发表于 2024-10-5 20:49
没看懂是什么意思

老师！意思是2列数据中的单元格，在剔除单元格前的英文字母后，两列中文字的单元格平行对齐

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    arr = Sheet1.[a1].CurrentRegion
    ReDim brr(1 To UBound(arr) - 1, 1 To UBound(arr, 2))
    For i = 2 To UBound(arr)
        brr(i - 1, 1) = arr(i, 1)
        For j = 2 To UBound(arr)
            With CreateObject("vbscript.regexp")
                .Pattern = "[^\w]{1,}"
                If .test(arr(j, 2)) Then
                    Set matches = .Execute(arr(j, 2))
                End If
            End With
            If InStr(arr(i, 1), matches(0)) Then: brr(i - 1, 2) = arr(j, 2): Exit For
        Next
    Next
    Sheet1.[j1].Resize(, UBound(arr, 2)) = arr
    Sheet1.[j2].Resize(UBound(brr), UBound(brr, 2)) = brr
    Beep
End Sub

ddz79101

quqiyuan 发表于 2024-10-5 21:23
参与一下，仅供参考。。。

谢谢老师！运行成功