将单元格与VBA合并

Question

我正在寻找合并3个水平单元格，但我在循环中这样做。代码看起来像这样：

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

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

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

Answer 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