返回列表 上一主題 發帖

[發問] 簡單組合問題。

回復 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

TOP

回復  stephenlee

請測試看看,謝謝。

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



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

題外話:  大大真的很強。

TOP

        靜思自在 : 我們最大的敵人不是別人.可能是自己。
返回列表 上一主題