VBA错误1004-应用程序或对象定义错误

这给出了错误1004-我只想合并5996行中的18个单元格，从第4行开始，您不能。调整大小0，18，零不是有效选项

如果要在调整大小时保持现有行数，请忽略以下参数：

Sub MergeCells()  

For i = 0 To 5996 Step 1
     ActiveSheet.Range("G4").Offset(i, 0).Resize(0, 18).Merge 
Next i  

End Sub

更好的方法是，在单个命令中删除循环并合并：

.Resize(, 18)

Sub MergeCells()
    ActiveSheet.Range("G4").Resize(5997, 18).Merge True
End Sub