[發問] 請教關於資料的合併

偉婕

我有數筆資料,每個儲存格中的資料若有多個字串是以分號區隔,目前必需將[國家]及[機構]中相對應的資料合併在一起,有以下情況:
1)若[國家]欄位中只有一個字串,則直接與[機構]中的字串合併,中間以逗號隔開
2)若[國家]欄位中只有二個以上字串,則必需與[機構]中的相對應的字串合併,中間以逗號隔開,各組間以分號隔開(或者各組各別置於不同儲存格)

例如:
國家　　　　　　　　　　　　機構 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　結果
Germany　　　　　　　　　Max Planck Inst Biol Cybernet　　　　　　　　　　　　　　　　　　Germany, Max Planck Inst Biol Cybernet
Japan; Japan　　　　　　Kyoto Univ; RIKEN　　　　　　　　　　　　　　　　　　　　　　　　　Japan, Kyoto Univ; Japan, RIKEN
USA; USA; USA　　　　　 Mississippi State Univ; Clemson Univ; Western Digital　　　　　　USA, Mississippi State Univ; USA, Clemson Univ; USA, Western Digital

除了透過資料剖析後,再搭配其他函數外,有沒有較快速的解決方法,謝謝!

Hsieh

1. Function MyJoin(str1$, str2$, dot1$, dot2$, k%) As String
   
2. ar = Split(str1, dot1)
   
3. ay = Split(str2, dot1)
   
4. ReDim ary(UBound(ar) + 1)
   
5. For i = 0 To UBound(ar)
   
6.    ary(i) = ar(i) & dot2 & ay(i)
   
7. Next
   
8. If k - 1 > UBound(ary) Then MyJoin = "" Else MyJoin = ary(k - 1)
   
9. End Function

複製代碼

990825.rar (9.36 KB)

下載次數: 6

2010-8-25 23:19

偉婕

回復 2# Hsieh

謝謝 Hsieh 版主,解決囉!