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

Question

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

我可以手动检查它们或者我可以请求帮助^ _ ^我当前的想法是循环列A并且在每个Subtotal，将到目前为止计数的行转储到第V列并拉入行从G列到W列的公式然后比较V和W.

但是当我到达Total时我该怎么办？我目前的想法会变得很麻烦。有没有更好的办法？列0之间的所有突出显示的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