与VBA合并单元格

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

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

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

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

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