Zählwerte, die nicht leer sind oder nicht zutreffend - VBA

Question

Ich hatte diese Formel herausgefunden, um alle diese Werte zu zählen, die nicht leer waren, aber das System hat die Vorlage aktualisiert und neben dem Leerzeichen hat es auch "N/A "Werte.

Wie kann ich diese Transformation

=COUNTIF('R Plan'!XT2:XT3658,"<>") 

Um zu testen, ob neben nicht leer auch für NICHT N testen/A

Weil ich diesen versuchte

=COUNTIF('R Plan'!XT2:XT3658,"<>" OR "<>N/A") 

und ich bin ein immer Nachricht, dass wir einen Fehler in Ihrer Formel gefunden haben

Answer 1

Wenn Sie> = XL2007 verwenden, können Sie 012 verwenden:

=COUNTIFS('R Plan'!XT2:XT3658,"<>",'R Plan'!XT2:XT3658,"<>N/A") 

Wenn Sie < verwenden = XL2003 dann können Sie verwenden:

=SUM(COUNTIF('R Plan'!XT2:XT3658,"<>"),-COUNTIF('R Plan'!XT2:XT3658,"N/A")) 

die Anzahl Count, die nicht leer sind und minus diejenigen, die N/A haben.

oder

=SUMPRODUCT(('R Plan'!XT2:XT3658<>"")*('R Plan'!XT2:XT3658<>"N/A")) 

Answer 2

Wenn Sie VBA verwenden möchten, dann wird dies für Sie arbeiten,

Setzen Sie dieses in einer Zelle und wählen Sie Ihren Bereich =COUNTBLANKS(B1,A1:A21), B1 der Wert, den Sie zählen möchten und mehr Der zweite Bereich ist der Bereich, den Sie zählen möchten, wie oft dieser Wert auftritt.

Fügen Sie ein Modul hinzu und fügen Sie diese Funktion ein.

Function COUNTBLANKS(r As Range, rng As Range) As Long 

    Dim x 
    Dim c 

    x = rng 
     For Each c In x 
      If c = r Then 
       COUNTBLANKS = COUNTBLANKS + 1 
      End If 
     Next c 


End Function