kurukuru-papaのブログ

主に、ソフトウェア開発に関連したメモを書き溜めたいと思います。

指定セル範囲の文字列を連結する関数

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