📅  最后修改于: 2022-03-11 14:51:56.464000             🧑  作者: Mango
Function ConcatMe(Rng As Range) As String
Dim cl As Range
ConcatMe = ""
For Each cl In Rng
ConcatMe = ConcatMe & cl.Text
Next cl
End Function