可以使用以下代码来实现:
Sub DynamicSum() '定义变量 Dim rng As Range Dim ws As Worksheet Dim sum_formula As String
'指定另一个工作表
Set ws = Worksheets("Sheet1")
'指定范围
Set rng = ws.Range("A1:A10")
'生成动态求和公式
sum_formula = "=SUM(" & rng.Address & ")"
'将公式应用于当前工作表的单元格
Range("B1").Formula = sum_formula
End Sub
这段代码会先定义所需的变量,然后指定另一个工作表并选择数据范围。接着,使用Address属性生成包含指定范围的动态求和公式,并将其应用于当前工作表中的单元格。