指定セル範囲の文字列を連結する関数
Excelで、セル範囲の文字列を連結する関数を書いてみました。連結時の区切り文字を指定することが可能です。
文字列連結は、Excel標準のCONCATENATE関数でも出来ますが、この場合、連結する対象のセルを1つずつ指定する必要があり、区切り文字を指定することが出来ません。
Public Function U_StrCat(セル範囲 As Range, Optional 区切り文字 As String = "") As String Dim result As String Dim cell As Range result = "" For Each cell In セル範囲 If Len(result) > 0 Then result = result & 区切り文字 End If result = result & cell.Value Next U_StrCat = result End Function