使用 Evaluate 乘以一个范围内的值

Question

我正在使用以下代码将范围内的值乘以 2：

input_rng = Evaluate(input_rng.Address & "*2")

如果将乘数存储在变量中会怎样？我尝试用变量名替换 2 但它似乎没有用。有什么建议吗？

Answer 1

我认为 Scott Craner 的评论是正确的。这里有一个完整的例子，希望对您有所帮助：

Sub test()
    Dim input_rng As Range
    Set input_rng = ActiveCell
    Dim factor As Single
    factor = 2
    input_rng = Evaluate(input_rng.Address & "*" & factor)
End Sub

使用 Evaluate 乘以一个范围内的值

Using Evaluate to multiply values in a range

excel

vba