不同列中的VBA计数项

试试这个:

=COUNTA(A:A)=COUNTA(B:B)

注:

• 值是数字、文本还是 空值 或错误。

• 关于在中执行工作表公式的一般问题 VBA 考虑:

  Sub DoItInVBA()
  Dim s As String, boo As Boolean
  
  s = "=Counta(A:A)=Counta(B:B)"
  boo = Evaluate(s)
  MsgBox boo
  End Sub
  

编辑第1页:

链接布尔表达式时需要小心。例如

Sub BooTest1()
    Dim boo As Boolean
    a = 7
    b = 7
    boo = (a = b)
    MsgBox boo
End Sub

将返回 真 但是:

Sub BooTest2()
    Dim boo As Boolean
    a = 7
    b = 7
    c = 7
    boo = (a = b = c)
    MsgBox boo
End Sub

将返回 假 ,因为 真 不等于 七 !

为了我们的任务,我们可以使用 And() :

Sub DoItInVBA()
    Dim s As String, boo As Boolean

    s = "=And(Counta(A:A)=Counta(B:B),Counta(B:B)=Counta(C:C))"
    boo = Evaluate(s)
    MsgBox boo
End Sub

我要么使用counta excel公式计算非空单元格的数目,要么使用vba中类似的工作表函数。参见下面的代码

Function CompareAtoB() As Boolean
    CompareAtoB = WorksheetFunction.CountA(Range("A:A")) = WorksheetFunction.CountA(Range("B:B"))
End Function