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

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）。 我希望能够在每列的底部生成一个计数，告诉我列中有多less个值小于上一列中的等值。 所以如果B3 <A3，这个数字就会上升。 但是，如果B3 = A3或B3> A3，那么它不会迭代计数。 我知道我需要遍历每个值，并将其与前一列中的同一行中的值进行比较，但是我非常遗憾如何实际执行此操作。 任何帮助将不胜感激。谢谢。

Answer 1

使用公式的简单解决scheme。 在每列的底部，例如在B351您可以使用数组公式：

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

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