有没有办法在公式中使用变量，使用VBA复制粘贴？

Sub CopyPasteWithVariable()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 定义源范围和目标范围
    Set sourceRange = Range("A1")
    Set destinationRange = Range("B1")
    
    ' 将源范围的值复制到目标范围
    destinationRange.Value = sourceRange.Value
End Sub

Sub CopyPasteFormulaWithVariable()
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim variableValue As Integer
    
    ' 定义源范围和目标范围
    Set sourceRange = Range("A1")
    Set destinationRange = Range("B1")
    
    ' 定义变量的值
    variableValue = 10
    
    ' 将变量的值分配给源范围
    sourceRange.Value = variableValue
    
    ' 将目标范围的公式设置为使用变量
    destinationRange.Formula = "=A1*2"
End Sub