Умножьте диапазон с константой

Question

Я хочу умножить все значения в пределах диапазона. Я пробовал этот формат, но значения ушли.

Код:

Dim yl1 As Range 

Set yl1 = .Range(.Cells(17, 6), .Cells(n + 16, 6))*19.25 

Answer 1

Есть, вероятно, и другие способы, многие из них, вероятно, лучше, но одна только петля

For i = 17 to some last row 
    Cells(i, 6) = Cells(i, 6) * 19.25 
Next i 

Я нахожу этот способ наиболее интуитивный, хотя.

Answer 2

По ссылке:

Dim yl1 as Range 
Set yl1 = .Range(.Cells(17, 6), .Cells(n + 16, 6)) 
yl1.Value = .Evaluate("INDEX(" & yl1.Address(0,0) & " * 19.25,)") 

Он будет делать их все сразу.

Answer 3

Другой способ:

Sub UsingPaste() 
    Range("B1").Value = 0.7 
    Range("B1").Copy 
    n = 10 
    Range(Cells(17, 6), Cells(n + 16, 6)).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply 
End Sub 

Где B1 некоторые Неиспользуемая клеток и п является то, что случается.