出错：循环引用

xing_chen

老师，有簿，写有代码，但在代码运行时，出错：循环引用。怎么修改，敬请老师赐教。谢谢

02761752696

都高级了，发帖还这样？

问题描述不清，仔细检查代码

关于求助贴的答复效率与发帖规范

ykcbf1100

老弟啊，你这汇总表和分表啥关系没有吧，分表中根本没有税率啊。
附件改好后重新上传吧。

xing_chen

02761752696 发表于 2023-1-11 10:54
都高级了，发帖还这样？

问题描述不清，仔细检查代码

谢谢老师阅读！此簿有代码，可以运行，但有2个致命问题:1是运行时出现循环引用，估计是单元格列号问题，等号前后的range中有重叠；2是其中有1表不运行。所有敬请老师赐教

半百

xing_chen

02761752696 发表于 2023-1-11 10:54
都高级了，发帖还这样？

问题描述不清，仔细检查代码

哎！这高级！名不副实，只好从另个角度看了。高级当作高龄吧！老师原谅，我宽慰。

xing_chen

ykcbf1100 发表于 2023-1-11 11:03
老弟啊，你这汇总表和分表啥关系没有吧，分表中根本没有税率啊。
附件改好后重新上传吧。

老师！那汇总表只是派其它用途的，目的是计算各分表的列合计。我写了，但出现循环引用，以及有其中的表不计算。不知道是什么原因！

xing_chen

半百 发表于 2023-1-11 11:11

老师！我将Range("f10000")改为Range("e10000")，还是循环引用。

3190496160

Sub test()
    Dim sht As Worksheet
    For Each sht In Worksheets
        If sht.Name <> "汇总表" Then
            With sht
                r = .Cells(Rows.Count, 5).End(xlUp).Row
                .Cells(r + 1, 5).FormulaR1C1 = "=SUM(R[-" & r - 1 & "]C:R[-1]C)"
                .Cells(r + 1, 7).FormulaR1C1 = "=SUM(R[-" & r - 1 & "]C:R[-1]C)"
            End With
        End If
    Next
End Sub

3190496160

出错讨教.rar (28.24 KB, 下载次数: 2)

2023-1-11 11:21 上传

点击文件名下载附件