平均值的 Excel 宏

Question

我对 VBA 脚本有疑问。我想解决方案很简单，但我只是无法弄清楚....

所以基本上，我有一个包含许多工作表的工作簿。每个工作表都包含完全相同的表格格式(相同的行数和列数)。我想要做的是创建一个新的工作表，并在该工作表中，具有所有这些值的平均值。

因此，例如在单元格 B2 中，我希望从所有其他工作表中获取单元格 B2 的平均值。因此，我创建了一个执行此操作的宏，这不是问题，但是问题是，在该宏中，所有工作表都由它们的名称引用，并且由于我有许多具有不同名称工作表的工作簿，所以这不起作用.因此，我尝试将第一张工作表的名称更改为工作表的实际引用 - 即 Sheet(1) 和最后一个作为 Sheet(x) - 其中 x 是我之前计算的工作表数。不幸的是代码不起作用，有人可以向我建议如何修改它以使其正常工作吗？我只是复制代码的有问题的部分:

x = Sheets.Count
Sheets.Add After:=Sheets(x)
Range("B2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Sheets(1):Sheets(x)!RC)"

Answer 1

尝试这个。您没有偏移工作表名称(实际上，您甚至没有使用工作表名称。在公式的上下文中，Sheets(1) 没有意义。您需要使用 Sheets(1).Name 并适本地偏移它:

"=AVERAGE('" & Sheets(1).Name & ":" & Sheets(x).Name & "'!RC)"