Макрос VBA: поделить каждое значение в столбику на 1.2

[nihil_]

здравствуйте господа! помогите с макросом!
есть данные в столбик, которые нужно поделить на 1.2. длинна всегда разная, начало всегда одно Range("J16")

Спасибо
Благодарочка через Приват24)

[IgorGO]

макрос не нужен
в любую ячейку напишите 1.2, скопировать ее
отметить ячейки, которые нужно разделить на 1.2
специальная вставка
операция Разделить
Ок

готово

[SAS888]

Если, все-таки, нужно именно макросом, то, например, так:

Sub qq()
    Dim x As Range
    Set x = Range("J16:J" & Cells(Rows.Count, "J").End(xlUp).Row)
    x.Value = Evaluate(x.Address(, , Application.ReferenceStyle) & " / 1.2")
End Sub

[nihil_]

Сообщение от IgorGO

макрос не нужен
в любую ячейку напишите 1.2, скопировать ее
отметить ячейки, которые нужно разделить на 1.2
специальная вставка
операция Разделить
Ок

готово

Спасибо за ответ, но нужен макрос чтобы после открытия книги автоматически все просчитало!

[nihil_]

Сообщение от SAS888

Если, все-таки, нужно именно макросом, то, например, так:

Sub qq()
    Dim x As Range
    Set x = Range("J16:J" & Cells(Rows.Count, "J").End(xlUp).Row)
    x.Value = Evaluate(x.Address(, , Application.ReferenceStyle) & " / 1.2")
End Sub

Спасибо большое за ответ! То что нужно, все работает!
Как Вас отблагодарить?

[SAS888]

См. "личку".