帖子: 6
主題: 2
精華: 0
積分: 58
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2017-5-30
最後登錄: 2024-6-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-6-21 22:04 | 只看該作者

數列中間流水號如何遞增?

dear 各位前輩,
已爬文沒查到有類似函數或方法可有效解決
R21241031130121||P123-000-12345A||Q6000||D2117||LF210305032S2
R21241031130122||P123-000-12345A||Q6000||D2117||LF210305032S2
以上數列紅色部分可否有函數或方法可以讓他繼續遞增 0121 →0122→0123→0124 ...(依此遞增下去)
麻煩各位前輩了，謝謝!!

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2021-6-22 10:03 | 只看該作者

="R2124103113"&TEXT(120+ROW(A1),"0000")&"||P123-000-12345A||Q6000||D2117||LF210305032S2"

下拉

TOP

killer77107

中學生 Rank: 2

帖子: 6
主題: 2
精華: 0
積分: 58
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2017-5-30
最後登錄: 2024-6-25

3^#

發表於 2021-6-23 08:15 | 只看該作者

感謝大大協助幫忙原先是想說用mid函數擷取出來再手動去下拉，謝謝🙏

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2021-6-23 09:32 | 只看該作者

回復 1# killer77107

也可以在A1先輸入 R21241031130121||P123-000-12345A||Q6000||D2117||LF210305032S2
A2公式如下
=SUBSTITUTE(A1,MID(A1,12,4),TEXT(MID(A1,12,4)+1,"0000"))

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

5^#

發表於 2021-6-23 09:56 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589846791

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

killer77107

中學生 Rank: 2

帖子: 6
主題: 2
精華: 0
積分: 58
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2017-5-30
最後登錄: 2024-6-25

6^#

發表於 2021-6-23 22:18 | 只看該作者

謝謝上面幾位大大熱心協助,感激不盡
讓我化繁為簡...讓我發覺我一直是用最冗長的方式去處理..

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

7^#

發表於 2021-6-24 10:41 | 只看該作者

回復 4# ML089

若前後有多組0121, 都會被取代, 還是用REPLACE較妥當~~

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

8^#

發表於 2021-6-26 07:29 | 只看該作者

回復 7# 准提部林

REPLACE 固定位置置換，確實比 SUBSTITUTE 安全多了

3Q

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

9^#

發表於 2023-11-30 13:09 | 只看該作者

本帖最後由 Andy2483 於 2023-12-1 16:38 編輯

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與名稱,學習方案如下

執行輸入窗:

執行結果與名稱參照:

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

10^#

發表於 2023-11-30 14:48 | 只看該作者

流水號最後符號前數字(輸入編號12084) google網址:https://hcm19522.blogspot.com/

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

數列中間流水號如何遞增?

數列中間流水號如何遞增?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]