資料複數回傳 - Excel程式區 - 麻辣家族討論版版

[發問] 資料複數回傳

1^# 跳轉到 »

發表於 2018-7-25 14:52 | 顯示全部帖子

回復 9# s13983037
VBA自己定義函式，還是能即時更新
模組中輸入

Public Function MyJoin(source As Range, delimiter As String, Optional ignoreEmpty = True) As String
For Each x In source
If Not ignoreEmpty Or Len(x) > 0 Then
MyJoin = MyJoin & IIf(Len(MyJoin) = 0, "", delimiter) & x.Text
End If
Next
End Function

複製代碼

M5填入 =MyJoin(C5:K5, ",", TRUE)
第一個參數是結合的範圍，第二參數是要使用的分隔符號，第三參數是用來選擇是否要忽略空白。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。