標題: [發問] 比對字串內特定資料後將結果合併字串 [打印本頁]

---

作者: chthonicfreddy    時間: 2016-12-28 17:48     標題: 比對字串內特定資料後將結果合併字串

本帖最後由 chthonicfreddy 於 2016-12-28 17:50 編輯

儲存格A1字串：A.B.C.01.02.03.04.05.06.07.08.09.10.11.102.104.109.  (號碼不連續)
比對資料內容： 01.  =  甲1
                             02.  =  甲2
                             03.  =  甲3   ......................(資料連續)
傳回結果B1：甲1.甲2.甲3......
請問如何自定函數?

---

作者: 葉國洲    時間: 2016-12-29 00:22

1. Function convert1(str As String) As String
   
2. Dim arr(1 To 114), brr(1 To 114)
   
3. For j = 1 To 114
   
4.       arr(j) = Format(j - 4, "#00.")
   
5. Next j
   
6. arr(1) = "A.": arr(2) = "B.": arr(3) = "C.": arr(4) = "D."
   
7. For j = 1 To 114
   
8.       brr(j) = "甲" & j
   
9. Next j
   
10. For j = 1 To 114
    
11.    If InStr(str, arr(j)) > 0 Then
    
12.       t = IIf(t = "", brr(j), t & "." & brr(j))
    
13.    End If
    
14. Next j
    
15. convert1 = t
    
16. End Function

複製代碼

回復 1# chthonicfreddy

---

作者: Hsieh    時間: 2016-12-29 09:54

回復 1# chthonicfreddy

試試看
    [attach]26247[/attach]

---

作者: chthonicfreddy    時間: 2016-12-29 14:29

回復 3# Hsieh


感謝葉大、板大協助
板大的解答已完全解決小弟的問題!!

---

作者: chthonicfreddy    時間: 2016-12-29 16:13

回復 3# Hsieh


再請問一下
我修改了
For Each ky In ar
    If d(ky & Dot) <> "" Then Mystr = IIf(Mystr = "", d(ky & "."), Mystr & ky & Dot & d(ky & Dot))
Next

希望結果是
甲101.甲202.~
可是結果變成
甲102.甲203.~
想請問大大應該如何修正?

---

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