標題: [發問] 合拼資料問題 [打印本頁]

---

作者: yuras    時間: 2011-12-28 21:50     標題: 合拼資料問題

小妹又來跟各位高手請益一下 我只會用CONCATENATE 但好像有限制
[attach]8943[/attach]

如何將 sheet2 A欄位資料合拼至Sheet1 Ａ2欄位並加有 "；"  ex: [email protected];[email protected]
謝謝 ^^

---

作者: register313    時間: 2011-12-28 22:17

回復 1# yuras
[attach]8944[/attach]
[attach]8945[/attach]

---

作者: Hsieh    時間: 2011-12-28 23:20

回復 1# yuras
寫個自定義函數運用
一般模組

1. Function JoinStr(str_array As Range, dot As String)
   
2. '連接字串語法:JoinStr(單欄或單列儲存格範圍,連接符號)
   
3. If str_array.Columns.Count = 1 Then
   
4.    JoinStr = Join(Application.Transpose(str_array), dot)
   
5.    Else
   
6.    JoinStr = Join(Application.Transpose(Application.Transpose(str_array)), dot)
   
7. End If
   
8. End Function

複製代碼

[attach]8948[/attach]

---

作者: yuras    時間: 2011-12-29 06:48

回復 3# Hsieh

謝謝 ^^

---

作者: yuras    時間: 2012-1-1 22:33

回復 3# Hsieh

不好意思 再護問您一下  如果我把 2!A2:A100,";") 選取範圍欄位拉大，會變成空格部份會自動補 ;;;;;;;;;;;;;;;;;;;;;;;
EX: [email protected];[email protected];[email protected];[email protected];[email protected];
[email protected];[email protected];[email protected];::::::::::::::::::::::::::::
那如何空格部份不要目動補“；“   謝謝 !! :P

---

作者: Hsieh    時間: 2012-1-1 22:51

回復 5# yuras

1. Function JoinStr(str_array As Range, dot As String)
   
2. '連接字串語法:JoinStr(單欄或單列儲存格範圍,連接符號)
   
3. If str_array.Columns.Count = 1 Then
   
4.    JoinStr = Join(Application.Transpose(str_array), dot)
   
5.    Else
   
6.    JoinStr = Join(Application.Transpose(Application.Transpose(str_array)), dot)
   
7. End If
   
8. JoinStr = Replace(JoinStr, dot & dot, dot)
   
9. End Function

複製代碼

---

作者: GBKEE    時間: 2012-1-2 08:51

回復 5# yuras
連結不連續範圍的字串

1. Function 字串連接(連接符號 As String, ParamArray 字串範圍()) As String
   
2.     Dim i As Integer, e As Variant
   
3.     For i = 0 To UBound(字串範圍)
   
4.         For Each e In 字串範圍(i)
   
5.         If e <> "" Then 字串連接 = IIf(字串連接 = "", e, 字串連接 & 連接符號 & e)
   
6.         Next
   
7.     Next
   
8. End Function

複製代碼

---

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