PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-9-3 22:47 | 只看該作者

[發問] 去除流水號

大大好,

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

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

去除流水號.rar (9.07 KB)

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

2^#

發表於 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

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2021-9-4 19:50 | 只看該作者

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

感謝您

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

4^#

發表於 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

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-9-4 20:46 | 只看該作者

回復 4# samwang

謝謝您,
執行沒問題！

TOP