如何用VBA将所有引用单元格中的公式拼接成一个公式？

Sub ConcatenateFormulas()
    Dim rng As Range
    Dim cell As Range
    Dim formula As String
    
    ' 设置要拼接公式的范围
    Set rng = Range("A1:A10") ' 将范围修改为你需要的范围
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 判断单元格是否包含公式
        If cell.HasFormula Then
            ' 拼接公式
            formula = formula & cell.Formula & "+"
        End If
    Next cell
    
    ' 去除最后一个加号
    formula = Left(formula, Len(formula) - 1)
    
    ' 将拼接后的公式赋值给指定单元格
    Range("B1").Formula = formula ' 将单元格修改为你需要的单元格
End Sub