返回列表 上一主題 發帖

[發問] 去除流水號

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
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

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

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

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題