2014-02-19 230 views

回答

0

試試這個用戶定義函數

Public Function conkat(rIn As Range) As String 
    conkat = "" 
    For Each r In rIn 
     conkat = conkat & "," & r.Value 
    Next r 
    conkat = Mid(conkat, 2) 
End Function 

使用,如:

= conkat(A1:A50)

+0

非常感謝您! – Victor

+0

非常歡迎您! –

相關問題