從第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

你需要使用Range：

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")