標題: 數字串接問題 [打印本頁]

---

作者: lionliu    時間: 2016-5-20 10:18     標題: 數字串接問題

各位大個好：
我想請問客戶箱號串接問題，問題附件[attach]24330[/attach]
因為資料很亂，不知是否有vba可以處理。

---

作者: 准提部林    時間: 2016-5-20 21:48

自訂函數：（只預設序號從１∼３０００）

1. Function GetNo(xStr$) As String
   
2. Dim Ar(0 To 3000), A, i%, N1, N2, T, TT$
   
3. For Each T In Split(xStr, ",")
   
4.     A = Split(0 & Trim(T) & "~0~0", "~")
   
5.     For i = A(0) To A(1)
   
6.         Ar(i) = 1
   
7.     Next
   
8. Next
   
9. For i = 1 To 3000
   
10.     If Ar(i) = 1 Then
    
11.        If N1 = "" Then N1 = i Else N2 = i
    
12.     Else
    
13.        If N1 <> "" Then TT = TT & "," & N1 & IIf(N2 = "", "", "-" & N2)
    
14.        N1 = "": N2 = ""
    
15.     End If
    
16. Next
    
17. GetNo = Mid(TT, 2)
    
18. End Function

複製代碼

Ｂ２公式：
=GetNo(A2)
　
字串太長可能造成錯誤結果∼∼
　
　

---

作者: lionliu    時間: 2016-5-22 18:10

回復 2# 准提部林


谢谢准大我再试一下

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)