如何用VBA自动调整指定工作表行列大小并解决下标越界错误9

你的代码触发错误的核心原因是操作行时误用了Columns对象：你用Columns("17")定位第17行，但Columns是列集合，用行号索引必然找不到对应对象，直接触发下标越界错误。

修正后的代码 #

Private Sub 调试按钮_Click()
    ' 自动调整Sheet2的X列宽度
    ThisWorkbook.Worksheets("Sheet2").Columns("X").EntireColumn.AutoFit
    ' 自动调整Sheet2的第17行高度
    ThisWorkbook.Worksheets("Sheet2").Rows(17).EntireRow.AutoFit
End Sub

额外排查点 #

• 确认当前工作簿中确实存在名为Sheet2的工作表，没有被删除、重命名或拼写错误（名称大小写不影响，但需与实际工作表名一致）
• 确保Sheet2处于未保护状态（你已确认这一点，可忽略）

内容的提问来源于stack exchange，提问作者Voidless7125