求助 split問題感恩 - Excel程式區

返回列表下一主題上一主題發帖

[發問] 求助 split問題感恩

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

1^# 跳轉到 »

發表於 2015-12-5 21:05 | 顯示全部帖子

回復 5# 魷魚絲

最好提供更多的例子，
編號最多幾位數？有無含英文或符號？
名稱後面有無包含數字？

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2015-12-6 10:39 | 顯示全部帖子

Sub 分割()
Dim xR As Range, U
For Each xR In Range([A2], [A65536].End(xlUp))
　　U = Val(1 & xR)
　　xR(1, 2) = Mid(U, 2)
　　xR(1, 3) = Mid(xR, Len(U))
Next
End Sub

１．編號限〔純數字〕，最多１４碼
２．Ｂ欄預先設為〔文字格式〕，以免〔前導０〕無法顯示

1 評分人數