出错：循环引用

tanglf188

小白斗胆指教：
1、你的汇总表名是"信息汇总表"，而代码里是"汇总表"，导致你在"信息汇总表"写入公式。
2、你的公式在E列=Sum(E2:E......),这就是循环运用的原因，F列同理
建议代码里改为：
1、If sht.Name <> "信息汇总表" Then
2、.Range("M10000").End(xlUp).Offset(1, 0)......
3、.Range("N10000").End(xlUp).Offset(1, 0)......

xing_chen

tanglf188 发表于 2023-1-11 14:56
小白斗胆指教：
1、你的汇总表名是"信息汇总表"，而代码里是"汇总表"，导致你在"信息汇总表"写入公式。
2 ...

谢谢老师！我是表格发错了。我是计算各表的列合计。与汇总表无关系。不过你的指教对我头很大帮助。我会在下次跨表时考虑。

tanglf188

xing_chen 发表于 2023-1-12 12:49
谢谢老师！我是表格发错了。我是计算各表的列合计。与汇总表无关系。不过你的指教对我头很大帮助。我会在 ...

不客气，谢谢您的鲜花。
对单元格求和或在VBA代码引用Excel函数大可不必 .Range("A1")="=Sum(B2:B100)"
您可直接在代码里算好了再去赋值：.Range("A1")=Application.Sum(Range("B2:B100"))
不写公式就不会出现此类问题。