[發問] 分離單號

大大好,
E欄的單號,含有2個"-",作為分離基準,單號分離至R、S、T三欄中
T欄單號: 3碼+"-" (不足3碼,前面補0)
S欄單號: 4碼+"-" (不足4碼,前面補0)
R欄單號: 3碼 (不足3碼,前面補0)

ex:
採購單號碼末碼中間碼單號
886-1215-283 283 1215- 886-
872-1305-017 017 1305- 872-
010-0105-547 547 0105- 010-

請問要如何寫這個程式?

分離單號_Split.rar (151.35 KB)

Sub 分離單號()
Dim xB As Workbook, R&, xD, Arr2, Arr3, Arr4
R = Cells(Rows.Count, "E").End(xlUp).Row
If R <= 2 Then Exit Sub
Set xB = Workbooks("分離單號_Split.xlsx")
With xB.Sheets("北區")
R = .Cells(Rows.Count, 1).End(xlUp).Row - 1
If R > 0 Then arr = Split([E2], "-")
If R > 0 Then Arr2 = Split([E2], "-").Resize(R).Value
If R > 0 Then Arr3 = Split([E2], "-").Resize(R).Value
If R > 0 Then Arr4 = Split([E2], "-").Resize(R).Value
End With
xB.Sheets("北區").[r2].Resize(R).Value = Arr2
xB.Sheets("北區").[s2].Resize(R).Value = Arr3
xB.Sheets("北區").[t2].Resize(R).Value = Arr4
Next
End Sub

複製代碼

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

2^#

發表於 2021-7-5 17:34 | 顯示全部帖子

回復 3# n7822123
回復 2# singo1232001
回復 4# samwang

謝謝三位, 結果都很完美！
請問N大 (n7822123)
能否幫忙解說以下程式紅字? 我對UBound的數字對應很不理解@@
.NumberFormatLocal = "@"
ReDim Brr(1 To UBound(Arr), 1 To 3)
For R = 2 To UBound(Arr)

TOP

PJChen