Selecton.Rows.AutoFit不起作用 – 为什么？

我有一个VBA代码的问题：

Sub Macro3() Sheets("Output").Select Rows("5:160").Select Selection.Rows.AutoFit End Sub 

什么 – 从我的angular度来看，它应该这样做 – 在表格“输出”中将“自动resize”应用于行5：160。 我将代码添加到工作表“输出”，所以每当我打开它应该适当自动resize。 但是，没有任何反应。 但是，如果我手动select行，并按CRTL + C + H + O + A自动调整行的大小，它工作正常。

有没有人猜测错误在哪里？ 会是一个巨大的帮助！

非常感谢！

Answer 1

每当我打开它应该适当自动resize。

为此，您必须将代码放在ThisWorkbook代码区域中，并且必须使用Workbook_Open()事件

看到这个

 Private Sub Workbook_Open() Sheets("Output").Rows("5:160").Rows.AutoFit End Sub 

快照