Question

我有一个工作簿，其中包含一个主工作表（称为“数据总计”），然后还有多个其他工作表，其数据以数据的日期命名（例如“ 05.23.19”）。我每天都会收到新数据，因此每天都会添加一个新工作表。我想总结一下，从工作簿的每一页到单元格A1中的单元格F3。

我是vba的新手，所以我正在尝试学习。我尝试了一个For Each循环，但是每次都返回错误消息，例如“找不到对象”。我知道下面的代码是错误的，但是我正在考虑按照以下方式做点事情：

Sub SumSheets()

Dim ws As Worksheet

For Each ws In ThisActiveWorkbook

'select cell F3 in every sheet (exept the master sheet "Data Total" and sum them in cell A1'

Answer 1

这将对工作簿中每个工作表的单元格F3中的总计求和（“数据总计”除外），然后在“单元格A1”中的“数据总计”工作表上设置总计。

Sub SumSheets()

Dim ws As Worksheet
Dim sumTotal As Double

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "Data Total" Then
        sumTotal = sumTotal + ws.Range("F3").Value
    End If

Next

Sheets("Data Total").Range("A1").Value = sumTotal

End Sub

如何使用vba将主表中另一个单元格中的动态表中的同一单元格求和？

1 个答案: