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

Question

Sub MergeCells()  

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

End Sub

这给出了错误1004 - 我只是想从第4行开始在5996行合并18个单元格

Answer 1

您不能.Resize(0, 18)，零不是有效选项。

如果要在调整大小时保留现有行数，请省略参数：

.Resize(, 18)

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

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