如何仅使用在VBA中With语句之后编写的代码

Question

I am using With/End With , and want to only call the code written after the With but I can't figure out how to do this. For example:

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

I want the single . in this case to represent Activecell.End(xlToRight).End(xlToRight) but it doesn't work. Any ideas?

Thanks!

Answer 1

Assuming that Active was intended to be ActiveCell , then the With ... End With will be dealing with a single cell. At a minimum, you need to tell Range that you want to deal with the .Cells (in this case a single cell) that is specified by the With ... End With statement.

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

If this was referring to a range of multiple cells, you should use .Cells(1, 1) but since it is by definition a single cell, specifying the position is unnecessary.