読者です 読者をやめる 読者になる 読者になる

kurukuru-papaのブログ

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

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

指定されたセル範囲の文字列を連結する関数です。

Public Function U_StrCat(セル範囲 As range) As String
    Dim result As String
    Dim cell As range

    result = ""
    For Each cell In セル範囲
        result = result & cell.Value
    Next
    
    U_StrCat = result
End Function

2008/12/11 セル範囲を複数指定できるように拡張した関数も考えました。

Public Function U_StrCat(ParamArray セル範囲配列() As Variant) As String
    Dim result As String
    Dim cellRange As Variant
    Dim cell As Range

    result = ""
    For Each cellRange In セル範囲配列
        For Each cell In cellRange
            result = result & cell.Value
        Next
    Next
    
    U_StrCat = result
End Function