【Excel】指定したセル範囲の文字列を連結する方法（区切りつき）

Function ConcatenateRangeText(objCells As Range) As String

  Dim objCell As Range
  Dim strRet As String

  For Each objCell In objCells
    If strRet = "" And objCell.Text <> "" Then
        strRet = "'" & objCell.Text & "'"
    ElseIf objCell.Text <> "" Then
        strRet = strRet & "," & "'" & objCell.Text & "'"
    End If
  Next

  ConcatenateRangeText = strRet

End Function