各セルの値を改行区切りで連結して返す関数

' fncJoinCellValues
' 各セルの値を改行区切りで連結して返す関数
' 引数:
'   rngTarget: Range  対象のセル範囲
' 戻り値:
'   各セルの値を改行で連結した文字列
Function fncJoinCellValues(rngTarget As Range) As String
    Dim strResult As String ' 各セルの値を改行で連結した結果
    Dim rngCell As Range    ' 対象セル

    ' 各セルをループ処理し、値を改行で連結
    For Each rngCell In rngTarget
        strResult = strResult & rngCell.Value & vbCrLf
    Next rngCell

    ' 末尾の改行を削除して返す
    If Len(strResult) > 0 Then
        strResult = Left(strResult, Len(strResult) - 2)
    End If

    fncJoinCellValues = strResult
End Function