Excel 从下一页添加到结束页

假设我有n张床单。我的第二张表叫做“Calc”，这是我进行求和/计算的地方

我想加上A1，A2。。。A1000，至第3页（计算后的表）至第n页的Z1、Z2…Z1000

这些是进口的纸张。我不知道这些纸的名字，也不允许我更改它们

活页3至活页n之间以及包括活页3至活页n之间的任何活页均可随时移除或添加

首先我想尝试=SUM（“”！A20），但它会自动将“”更改为第一页和最后一页

当我删除最后一页时，它会给我错误，并且计算失败。我想做间接的，但这将是非常乏味的，因为我无法拖动以将第3页中的单元格更改为第n页

例如：

=SUM（间接（“&F2&”！C4”）、间接（“&F3&”！C4”），

当我将C4拖动到整个电路板上时，C4不会改变

还有其他想法吗？

让我猜猜：

你有很多床单

您可以删除或添加新工作表

每页都有

范围（“A1:Z1000”）

的数据

您需要将每个工作表的

范围（“A1:Z1000”）

求和在工作表（“计算”）范围（“A1:Z1000”） 每张图纸都有

A1:Z1000

中的数据。

“计算”表中的金额。

如果是这样，请尝试以下方法：

Sub SumEverySheet()

Dim Sh As Worksheet
Dim i, j As Integer
Dim cellValue

For Each Sh In Worksheets
    If Sh.Name <> "Sheet1" And Sh.Name <> "Calc" Then
        ' row: 1 to 1000
        For i = 1 To 1000
            ' A - Z (1 - 26)
            For j = 1 To 26
                cellValue = Sheets("Calc").Cells(i, j)
                sheetValue = Sh.Cells(i, j)
                Sheets("Calc").Cells(i, j) = sheetValue + cellValue
            Next j
        Next i
    End If
Next Sh
End Sub

---

希望这能对您有所帮助。

如果我理解正确的话，一个想法是在您的“计算”工作表上，第1行列出了工作簿中的所有工作表名称。然后，在此情况下，您可以执行SUM（）公式，并间接指向A1、B1等，以获取工作表名称。然后把它拖过去？这是标记的VBA，但你的目标是非VBA解决方案？这是我的第一个想法。但是，在拖动时，间接函数中引用其他工作表的单元格不会更改。在上面，C4没有改变。因此，如果我有1000个单元格，那么我必须为每个单元格进行更改。我宁愿不要，除非没有VBA没有解决方案。那么这个选择总比没有好option@Seven-如果键入该公式并拖动，“C4”不会改变？你不是在用VBA来添加公式，是吗？

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    MsgBox "after save"
    Call SumEverySheet
End Sub