使用ActiveCell.Formula从VBA中移动公式，以便根据等级库连接单元格

Sub MoveFormula()
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源单元格范围
    Set sourceRange = Range("A1")
    
    ' 设置目标单元格范围
    Set targetRange = Range("B1")
    
    ' 将源单元格的公式复制到目标单元格
    targetRange.Formula = sourceRange.Formula
    
    ' 清除源单元格的公式
    sourceRange.ClearContents
End Sub