将范围乘以常数

Question

我希望将范围内的所有内容乘以一个值。我试过这种格式，但价值观已经过时了。

代码：

Dim yl1 As Range

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

Answer 1

根据链接：

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 2

可能有其他方式，其中许多可能更好，但一个只是一个循环

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

我发现这种方式最直观。

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 是一些未使用的单元格而 n 是它碰巧发生的任何情况。