Function Combine(WorkRng As Range, Optional Sign As String = " ") As String
Dim Rng As Range
Dim OutStr As String
For Each Rng In WorkRng
If Rng.Text <> " " Then
OutStr = OutStr & Rng.Text & Sign
End If
Next
Combine = Left(OutStr, Len(OutStr) - 1)
End Function
EXCEL 中多个单元格文本合并到一个单元格
最新推荐文章于 2024-09-14 08:25:16 发布