如何僅使用在VBA中With語句之后編寫的代碼

Question

我正在使用With/End With ，並且只想調用在With之后編寫的代碼，但是我不知道該怎么做。 例如：

With Activecell.End(xlToRight).End(xlToRight)
    Range(., .End(xlDown)).NumberFormat = "###0"
End With

我要單身. 在這種情況下代表Activecell.End(xlToRight).End(xlToRight)但它不起作用。 有任何想法嗎？

謝謝！

Answer 1

假設Active本來是ActiveCell ，則With ... End With將處理單個單元格。 至少，您需要告訴Range您要處理由With ... End With語句指定的.Cells （在這種情況下為單個單元格）。

With ActiveCell.End(xlToRight).End(xlToRight)
    Range(.Cells, .Cells.End(xlDown)).NumberFormat = "###0"
End With

如果這是指多個單元格的范圍，則應使用.Cells(1, 1)但由於按定義它是單個單元格，因此無需指定位置。