定数に範囲を掛ける

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 

です。リンクを1として

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

もう一つの方法：

B1は、いくつかの未使用のセルと Nであることがあることを起こるものは何でもある

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 

。