samwang

回復 10# stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, a, a1
Arr = Range("A2:A" & [A65536].End(3).Row)
For i = 1 To UBound(Arr)
    a = Split(Arr(i, 1), "-")(0)
    a1 = Split(Arr(i, 1), "-")(1)
    If a = a1 Then Arr(i, 1) = a
Next
Range("B2").Resize(UBound(Arr)).NumberFormatLocal = "@"
Range("B2").Resize(UBound(Arr)) = Arr
End Sub

stephenlee

回復  stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, a, a1
Arr = Range("A2:A" & [A65536] ...
samwang 發表於 2021-6-5 12:25

  這個也是完全符合要求,完美解決了我所需的問題。 非常感激大大一直幫忙,幫我節省了處理資料的時間,十分感謝。

題外話:  大大真的很強。