[發問] 去除流水號

PJChen

大大好,

附件是從網路下載的資料
C欄是Barcode,
C開頭的是訂單號碼,這次抓下來有3張訂單
資料會自動從每張訂單的第一筆Barcode開始
自動在最前面加上流水號,如1,2,3...
我想將流水號去除,結果如F欄所顯示
請問如何用VBA達成？

工作表為簡化過的,在VBA執行的時候,
要能不干擾到其他儲存格資料(某些有公式)
只要能把C欄變成如F欄的值即可

去除流水號.rar (9.07 KB)

下載次數: 6

2021-9-3 22:45

PJChen

回復 4# samwang

謝謝您,
執行沒問題！

samwang

回復 3# PJChen


請問     If UCase(Left(Arr(i, 1), 1)) = "C" Then n = 1: GoTo 99
1) 要如何改為偵測第一個字是"文字",
     因為訂單號碼,有時不是C開頭
>>If Len(Arr(i, 1)) < 8 Then n = 1: GoTo 99

PJChen

回復 2# samwang
samwang大大,
請問     If UCase(Left(Arr(i, 1), 1)) = "C" Then n = 1: GoTo 99
1) 要如何改為偵測第一個字是"文字",
     因為訂單號碼,有時不是C開頭

感謝您

samwang

回復 1# PJChen

請測試看看，謝謝

Sub test()
Dim Arr, i&, n
Arr = Range([c1], [c65536].End(3))
For i = 2 To UBound(Arr)
    If UCase(Left(Arr(i, 1), 1)) = "C" Then n = 1: GoTo 99
    Arr(i, 1) = Mid(Arr(i, 1), Len(n) + 1): n = n + 1
99: Next
Range("c1").Resize(UBound(Arr)) = Arr
End Sub