在多个选项卡 VBA 上对表的行求和/平均

Question

我想为总和或平均值添加小计。这些选项卡上的表都具有相同的行长度和相同的标题(有一组 8 个选项卡，其中包含 3 个附加列，因此我稍后将在处理这些选项卡上创建另一个循环(。

我不确定如何使以下代码中的表引用通用以引用该特定选项卡上的任何表。这就是我到目前为止所拥有的...任何帮助将不胜感激！谢谢！

Sub AddTotals()
Dim tablename As Range
Dim TargetSheet As Worksheet
Dim tbl As ListObject
Dim rng As Range
Worksheets("Tab Names").Activate
For Each tablename In Worksheets("Tab Names").Range("B1:B64").Cells
Set TargetSheet = Worksheets(CStr(tablename.Value))
Set rng = Range(TargetSheet.Range("F11"), TargetSheet.Range("F11").SpecialCells(xlLastCell))
Range("F11").Select
ActiveSheet.ListObjects(Active).ShowTotals = True
Range("Table2[[#Totals],[Var %]]").Select
ActiveSheet.ListObjects("Table2").ListColumns("Var %").TotalsCalculation = _
xlTotalsCalculationAverage
Range("Table2[[#Totals],[Var $]]").Select
ActiveSheet.ListObjects("Table2").ListColumns("Var $").TotalsCalculation = _
xlTotalsCalculationSum
Next tablename

Answer 1

如果每张纸上只有一个表，则解决方案相对简单。但是，如果有多个表，则需要在选项卡名称工作表上标识表名称和选项卡名称。如果每个工作表只有一个表，这是解决方案。

For Each tablename In Worksheets("Tab Names").Range("B1:B64")
Set TargetSheet = Worksheets(CStr(tablename.Value))
With TargetSheet.ListObjects(1)
.ShowTotals = True
.ListColumns("Var %").TotalsCalculation = xlTotalsCalculationAverage
.ListColumns("Var $").TotalsCalculation = xlTotalsCalculationSum
End With
Next tablename

我删除了代码中许多不必要的范围选择。无需选择对象即可使用它们。事实上，如果你这样做，它会减慢速度。