excelです。ユーザ定義関数です。あとRange。 2015/12/15

concat - excelです。ユーザ定義関数です。あとRange。

単純に区切り文字で、セルの内容を連結したいというものです。
わざわざ、マクロにする必要があるのかどうかわかりませんが。。。

Function CONCAT(範囲 As Range, 区切り文字 As String) Dim str As String For Each セル In 範囲 str = str & セル & 区切り文字 Next If 0 < Len(区切り文字) And 0 < Len(str) Then str = Left(str, Len(str) - 1) End If CONCAT = str End Function


: