对动态张数求和

Question

我有一个宏，可以创建一个包含多个按日期命名的工作表的工作簿，例如2015 年 12 月 1 日，2015 年 12 月 2 日。数据手动输入到这些工作表中。最后一个工作表名称是“TOTAL”。每个月工作表的数量和名称都会有所不同。我正在尝试编写一段代码，它将所有工作表中的数据汇总到位于名为“Total”的工作表中的单元格中。我的想法是通过循环来做到这一点，但尽管宏运行时没有显示错误消息，但它不起作用。 宏完成运行后应该出现在“Total”工作表的“B2”中的公式不存在，所以我的假设是求和仅在宏执行期间有效。我不确定如何将“sum”公式输入“Total”工作表的“B2”单元格。我真的很感激任何可以为我指明正确方向的提示。下面有一段代码不起作用：

Sub Test()

Dim i as Long

For i = 1 To Worksheets.Count - 1

             Worksheets("TOTAL").Range("B2").Formula = Application.WorksheetFunction.Sum(Worksheets(i).Range("B2"))

       Next i

       Worksheets(i).Range("B2").Value = Worksheets("TOTAL").Range("B2").Value

End Sub

Answer 1

您可以定义一个自定义的用户定义函数 (UDF)，当在单元格中输入该函数时，该函数会汇总同一工作簿中所有其他工作表中的相应单元格。让我们称之为AutoSum：

Function AutoSum() As Variant
    AutoSum = 0
    For Each ws In Worksheets
        If Not ws Is Application.ThisCell.Parent Then AutoSum = AutoSum + ws.Range(Application.ThisCell.Address)
    Next
End Function

然后您可以在任何单元格的公式中简单地使用它：=AutoSum()

Answer 2

试试这个；

Sub Test()

Dim i As Long
Dim t As String


For i = 1 To Worksheets.Count - 1
    If i = 1 Then
        t = "=Sum('" & Worksheets(i).Name & "'!B2"
    Else
        t = t & ",'" & Worksheets(i).Name & "'!B2"
    End If
Next i

Worksheets("TOTAL").Range("B2").Formula = t & ")"

End Sub

它在循环时构建公式，然后将公式分配给单元格。