在Excel中将单元格与空格连接

Public Function concat(r As Range) As String
    concat = ""
    For Each rr In r
        concat = concat & rr.Value
    Next rr
End Function
Public Function concat(r As Range) As String