Excelmacros的平均值
我有一个VBA脚本的问题。 我想解决scheme很简单，但我只是无法弄清楚….
所以基本上，我有一个包含许多工作表的工作簿。 每个工作表都包含完全相同的表格格式（相同数量的行和列）。 我想要做的是创build一个新的工作表，并在该工作表中，所有这些值的平均值。
所以例如在B2单元格中，我想要所有其他工作表中的单元格B2的平均值。 因此，我创build了一个这样做的macros，这不是一个问题，但问题是，在macros中，所有工作表被称为他们的名字，因为我有许多这些工作簿命名不同的工作表，这是行不通的。 因此，我试图将第一张纸张的名称更改为纸张的实际参考 – 即纸张（1）和最后一张纸张（x） – 其中x是先前计算的张数。 不幸的是代码不工作，任何人都可以请build议我如何修改这个，使其正常工作？ 我只是复制代码的有问题的部分：
x = Sheets.Count Sheets.Add After:=Sheets(x) Range("B2").Select ActiveCell.FormulaR1C1 = "=AVERAGE(Sheets(1):Sheets(x)!RC)" 尝试这个。 Sheets(1)没有任何意义，你需要使用Sheets(1).Name ，并且适当地补偿它：
"=AVERAGE('" & Sheets(1).Name & ":" & Sheets(x).Name & "'!RC)"