Option Explicit
Sub TEST()
Dim Brr, A, i&, N&, V%, T$, Ts$, Te$, Tv$
'↑宣告變數
A = InputBox("", "請輸入需求列數", 10): V = Val(A)
'↑令A變數是輸入窗回傳值,令V變數是A變數轉化的數值
If StrPtr(A) = 0 Or V = 0 Then Exit Sub
'↑如果輸入窗案取消或沒有輸入.輸入非數值字串就結束程式執行
[A65536].End(xlUp).Name = "A欄最後有內容儲存格"
'↑令指定的儲存格範圍以 "A欄最後有內容儲存格"納入名稱裡
T = Range("A欄最後有內容儲存格")
'↑T變數是 名稱參照儲存格字串值
Tv = Right(Split(T & "|", "|")(0), 4)
'↑令Tv變數是 T變數以 "|"分割成的一維陣列0索引號陣列值取右側4字元字串
Ts = Mid(T, 1, InStr(T, Tv & "|") - 1)
'↑令Ts變數是T變數在該4字流水號前的字串
Te = Mid(T, InStr(T, "|"))
'↑令Ts變數是T變數在該4字流水號前後的字串
ReDim Brr(1 To V, 0)
'↑宣告Brr陣列值為空陣列
For i = 1 To V
'↑設順迴圈將所需的流水號字串寫入Brr陣列裡
N = N + 1
Brr(i, 0) = Ts & Format(Val(Tv) + N, "0000") & Te
Next
Range("A欄最後有內容儲存格")(2).Resize(N) = Brr
'↑令陣列值寫入儲存格中
End Sub作者: hcm19522 時間: 2023-11-30 14:48
