13-2 合并单元格时连接每个单元格的文本

最新推荐文章于 2024-05-14 16:09:49 发布

原创最新推荐文章于 2024-05-14 16:09:49 发布 · 151 阅读

0 ·

CC 4.0 BY-SA版权

数据分析同时被 2 个专栏收录

32 篇文章

订阅专栏

VBA

12 篇文章

订阅专栏

这段VBA代码演示了如何合并Excel的A1到B10的单元格，并将所有单元格内容拼接成一个字符串。通过MergeRng变量设置要合并的范围，使用For Each循环遍历并收集每个单元格的内容，然后关闭警告提示，执行合并操作，最后将合并后单元格的值设为拼接的字符串。

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