本文介绍使用VBA实现Excel中合并多个单元格的内容，并在两个不同场景下提供两种实用的函数：一种是简单地连接所有选定单元格的值；另一种则在连接前检查每个单元格是否为空，避免在最终结果中包含多余的分隔符。
Public Function Merge(rng As Range, splitter As String) As String
'Merge = ThisWorkbook.Name
Dim Str As String
Str = ""
Dim n As Range
For Each n In rng
Str = Str & n.Value & splitter
Next n
Str = Left(Str, Len(Str) - 1)
Merge = Str
End Function
Public Function Merge2(rng As Range, splitter As String) As String
'Merge = ThisWorkbook.Name
Dim Str As String
Str = ""
Dim n As Range
For Each n In rng
If n.Value <> "" Then
Str = Str & n.Value & splitter
End If
Next n
'If Right(Str, 1) = splitter Then
Str = Left(Str, Len(Str) - 1)
'End If
Merge2 = Str
End Function
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
