標題: [發問] 去除流水號 [打印本頁]

---

作者: PJChen    時間: 2021-9-3 22:47     標題: 去除流水號

大大好,

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

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

[attach]33974[/attach]

---

作者: samwang    時間: 2021-9-4 08:33

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

---

作者: PJChen    時間: 2021-9-4 19:50

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

感謝您

---

作者: samwang    時間: 2021-9-4 20:35

回復 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    時間: 2021-9-4 20:46

回復 4# samwang

謝謝您,
執行沒問題！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)