如何根据VBA或Excel公式中的单元格内容将静态公式与变化值合并？

Sub MergeFormulaWithValue()
    Dim ws As Worksheet
    Dim cell As Range
    Dim formula As String
    Dim value As Variant
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 循环遍历需要合并公式和值的单元格
    For Each cell In ws.Range("A1:A10")
        ' 获取单元格的静态公式和变化值
        formula = cell.Formula
        value = cell.Value
        
        ' 合并静态公式和变化值，生成动态公式
        cell.Formula = formula & value
    Next cell
End Sub