将单元格分配给变量和变量到另一个单元格

Question

我是VBA的初学者，很抱歉这个简单的问题：

我想将单元格A1分配给变量“num”，然后我想将“num”与4相乘，并将新值分配给“num2”然后打印细胞A2的结果。

如果你可以帮助我，我可以自己动手:) 谢谢！

Answer 1

考虑：

Sub demo()
    Dim num As Long, num2 As Long
    num = [A1] * 4
    num2 = num
    [A2] = num2
End Sub

Answer 2

甚至认为这不会直接回复（将变量分配给单元格取决于您要分配的内容：单元格本身？其地址？值？）另一种可能性（如果您需要A2始终更改）如果A1改变）基本上在A2单元格中插入一个公式：

Sub demo()
    ThisWorkbook.ActiveSheet.Range("A2").Formula = "=4*" & ThisWorkbook.ActiveSheet.Range("A1")
End Sub

请注意，此处的ActiveSheet可以是您要使用的工作表（您可以选择包含Worksheets("WorksheetName")或Worksheets(WorksheetPosition)的其他工作表。 当然，只有当您只需要乘以4个单元格时，这才有效。

Answer 3

我认为使用不必要的变量是不好的形式。

怎么样：

Sub demo()
[A2] = [A1] * 4
end sub