Изменить числовой формат для диапазона

Question

Sub FormatThreeDecimals()
Dim ws As Worksheet
Dim rng As Range
Dim lastCell

Set ws = Worksheets("Summary")
lastCell = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select
Set rng = [B4:LastCell]

Range("rng").NumberFormat = "0.000"

End Sub

Я хочу определить диапазон B4: lastCell с переменной rng, затем применить числовой формат «0,000» к нему. У меня проблемы с настройкой диапазона.

Редактировать: я получаю ошибку во время выполнения '424': требуется подтверждение, когда мой код достигает строки. Установите rng = [B4: LastCell].

Answer 1

Попробуйте это:

Dim lastCell As Range
Set ws = Worksheets("Summary")
Set lastCell = ws.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious)
Set rng = ws.Range("b4", lastCell)
rng.NumberFormat = "0.000"