vb.net - 次のセルが空でないカウント

Question

範囲内に文字列が表示される回数をカウントする必要がありますが、次のセルが空でない場合のみです。

A  1
B  5
D  4
A
G  1
B  4
B  8
D

だから私はA-> 1、B-> 3、D-> 1、G-> 1が欲しい

どうやってやるの？

Answer 1

セルの数式を探している場合は、これで必要なものが得られるはずです。

=COUNTIFS(A1:A8,"A",B1:B8,"<>")

A1:A8あなたの手紙の列はどこにあり、B1:B8あなたの番号の列はどこですか.

*これはCOUNTIFS()( Sあり) であり、COUNTIF()(S なし)ではないことに注意してください。

---

完全を期すために、これも機能しますが、使用したいよりも複雑になる可能性があります。

=SUMPRODUCT((A1:A8="A")*(LEN(B1:B8)>0))

---

VB(A) ソリューションを探している場合、これはうまくいくはずです:

For i = 1 To 8
    'Replace mySheet and CellCount with the proper variables for your use
    If mySheet.Range("A" & i).Value2 = "A" And Len(mySheet.Range("B" & i)) > 0 Then
        CellCount = CellCount + 1
    End If
Next i