用 VBA 合并单元格

【问题标题】：Merging cells with VBA用 VBA 合并单元格
【发布时间】：2015-10-23 20:16:08
【问题描述】：

我希望合并 3 个水平单元格，但我是在循环中这样做的。代码看起来像这样：

myrange.Range(cells(3,i), cells(3,i+3)).mergecells = true

这不起作用。我猜是因为代码试图合并 2 个彼此不相邻的单元格。使用这种单元格地址类型合并一系列单元格的语法是什么？

任何帮助将不胜感激！谢谢！

【问题讨论】：

.mergecells 属性参见link。使用 Range(Cells(3, i), Cells(3, i + 3)).Merge

标签： vba excel merge

【解决方案1】：

我将假设 myrange 是一个工作表，因为对于它的含义没有其他意义。

Sub MergeIt()
    Dim MyRange As Worksheet
    i = 1
    Set MyRange = Sheets("Sheet1")
    With MyRange
        .Range(.Cells(3, i), .Cells(3, i + 3)).Merge
    End With
End Sub

【讨论】：