'
' セルの文字列を連結するワークシート関数
' Date: 1996/05/01  Author: Kazuyuki Housaka
'
'   ＜引数＞
'   range1       : セル参照
'   separatorChar: 区切り文字
'   ifEmpty      : Trueのとき空白セルでも区切り文字を挿入する
'
Option Explicit

Function StrSum(range1 As Variant, separatorChar As String, ifEmpty As Boolean)
    Dim s As String
    Dim r As Range
    Dim flag As Boolean
    s = ""
    flag = True
    For Each r In range1.Cells
        If IsEmpty(r) Then
            If ifEmpty Then
                s = s & separatorChar
                flag = False
            End If
        Else
            If flag Then
                s = CStr(r.Value)
                flag = False
            Else
                s = s & separatorChar & CStr(r.Value)
            End If
        End If
    Next
    StrSum = s
End Function