Sub Mergecells6()
Dim MergeStr As String
Dim MergeRng As Range
Dim rng As Range
Set MergeRng = Range("a1:b10")
For Each rng In MergeRng
MergeStr = MergeStr & rng & " "
Next
Application.DisplayAlerts = False
MergeRng.Merge
MergeRng.Value = MergeStr
Application.DisplayAlerts = True
Set MergeRng = Nothing
Set rng = Nothing
End Sub
13-2 合并单元格时连接每个单元格的文本
最新推荐文章于 2022-03-08 21:46:58 发布