ric********

2022/6/30 15:00

11回答

エクセルVBAで、特定の文字でオートフィルターをかけた後 見えている結果で別の特定の文字がいくつあるか 個数を数えることは可能でしょうか。

エクセルVBAで、特定の文字でオートフィルターをかけた後 見えている結果で別の特定の文字がいくつあるか 個数を数えることは可能でしょうか。

Excel | Visual Basic・40閲覧

ベストアンサー

0
関数は苦手

カテゴリマスター

2022/6/30 15:34

オートフィルタ結果のB列から「あいう」が含まれるセルを数える方法です。 Sub Sample() Dim n As Long Dim buf As Range For Each buf In Intersect(Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Offset(1), Range("B:B")) If InStr(buf.Value, "あいう") Then n = n + 1 Next buf MsgBox n & "個" End Sub

画像