Question

Sub CompareValues()
    Dim rng As Range
    Dim cellA As Object
    Dim cellB As Object
    Dim count As Integer

    Set rng = Selection
    For Each cell In rng
        'test if value in column A is less than in column B
        If cellA.Value < cellB.Value Then
            count += 1
        End If
    Next
End Sub

基本上我有一个包含50多列的电子表格，每列有350行，主要是数值（如果结果不可用，则值将为数字或NA）。我希望能够在每列的底部生成一个计数，告诉我列中有多少值小于上一列中的等价值。那么如果B3＆lt; A3计数会上升。但是，如果B3 = A3或B3> A3然后它不会迭代计数。我知道我需要循环遍历每个值并将其与前一列中同一行中的值进行比较，但我很遗憾如何实际执行此操作。任何帮助将不胜感激。谢谢。

Answer 1

使用公式的简单解决方案。在每列的底部，例如在B351上，您将使用数组公式：

=SUM(IF(A1:A350<=B1:B350,1,0))

请注意，这是通过按CTRL + SHIFT + ENTER输入的。的问候，

Excel VBA脚本用于计算A列中值小于B列相同行中值的数量

1 个答案: