Excel VBA：将计算添加到同一工作表中的每个表

Question

这是here的更新版本。

Desired output

Table

感谢@sktneer 帮助我解决了第一部分的问题，现在我想

1. 调整代码，因为我在表名和表名之间添加了几行（行） 表，也添加了列
2. 将公式添加到表格右侧的表格名称

我在“尝试失败”图像中包含了我对先前答案中的代码（作为 cmets）的一些假设。
请问各位大神说的对不对？
因为我不完全理解代码是如何工作的，即使我在声明中搜索过。

Answer 1

试试下面的代码。 下面的代码在进行 Total 摘要时不会插入类的名称。 但是代码将为您在所需输出中显示的每个表创建一个摘要权，前提是工作表上每个表的右侧有足够的空间用于摘要，否则代码将覆盖任何在那里找到的数据。

Sub InsertSummaryForEachTable()
Dim ws As Worksheet
Dim rng As Range
Dim i As Integer, c As Long

Application.ScreenUpdating = False

Set ws = ActiveSheet

For Each rng In ws.UsedRange.SpecialCells(xlCellTypeConstants, 3).Areas
    If rng.Rows.Count > 1 And rng.Columns.Count = 4 Then
        c = rng.Cells(1, rng.Columns.Count).Column + 2
        Cells(rng.Rows(1).Row, c).Value = "Total"
        For i = 2 To rng.Rows.Count
            rng.Rows(i).Cells(1).Select
            Cells(rng.Rows(i).Row, c) = rng.Rows(i).Cells(1)
            Cells(rng.Rows(i).Row, c + 1) = "=SUM(" & rng.Rows(i).Address & ")"
        Next i
    End If
Next rng
Application.ScreenUpdating = True
End Sub