excel - 需要逻辑来检查公式中的范围

Question

需要逻辑帮助。我有大约 1000 行数据，其中输入了公式来计算小计和总计。公式的性质要求每个相应的范围都是正确的。正确的范围由 C 列中的数据确定(请参见插图)。在大多数情况下，范围(以及公式)是正确的。但我有理由相信少数不是。

我可以手动检查它们，也可以向 SO 寻求帮助 ^_^ 我目前的想法是循环 A 列并在每个 Subtotal ，将到目前为止计数的行转储到 V 列，并将公式中的行从 G 列拉到 W 列，然后比较 V 和 W。

但是当我到达 Total 时我该怎么办？ ?我现在的想法会变得很麻烦。有没有更好的办法？所有突出显示的0列之间的 s i:u也需要测试。

我也会考虑从头开始替换所有公式的解决方案。

Answer 1

我不确定这是否是你正在寻找的，但我想由你作为一个想法来运行它。
这个例子将把 G 列的总数放入 Z 列。

不管怎样，看看吧，如果你不喜欢它，我会摆脱它。
您可以添加另一行或组成一个循环来获取所有列的总数。

Sub Button1_Click()
    Dim RangeArea As Range

    For Each RangeArea In Columns("C").SpecialCells(xlCellTypeConstants, 1).Areas

        Cells(Rows.Count, "Z").End(xlUp).Offset(1).Value = Application.Sum(RangeArea.Offset(, 4))

    Next RangeArea

End Sub