从第x行开始VBA自动调整？

Question

我正在使用以下vba代码尝试在列O中设置行自动高度。

ThisWorkbook.Worksheets("Missed On Sale").UsedRange.Columns("O:O").EntireRow.AutoFit

它可以工作，除了它影响我工作表顶部的O列中的行，我不想这样做。

为了解决这个问题，我尝试使用它，以便它只适用于第14行。

ThisWorkbook.Worksheets("Missed On Sale").UsedRange.Columns("O14:O200").EntireRow.AutoFit

但这会引发错误。

Answer 1

您需要使用范围：

ThisWorkbook.Worksheets("Missed On Sale").Range("O14:O200").EntireRow.AutoFit

Answer 2

如果使用列和行指定特定集合，则需要使用Range：

ThisWorkbook.Sheets("Missed On Sale").Range("O14:O200").EntireRow.AutoFit

顺便说一句，您可以使用Sheets代替Worksheets，当您执行以下操作时：

Sheets(1).Range("B2:K11").Range("A1")

事实上，这将参考该表中的B2。

幸运的是，UsedRange每次都经常从A1开始，所以你的：

ThisWorkbook.Worksheets("Missed On Sale").UsedRange.Columns("O:O")

与（如果在Col A和Row 1中使用A1或任何内容）相同：

ThisWorkbook.Sheets("Missed On Sale").Columns("O:O")