1

列Aの範囲内の列Bの基準をチェックするcountif関数を実行するマクロがあります。両方（範囲と基準）のサイズが異なる場合があるため、マクロは最後のセルが入力されるまで続きます。ただし、まったく同じ一致をチェックします。範囲に基準が含まれているかどうかを確認するために変換したいと思います。たとえば、基準が「マネージャー」で、その範囲に「マーケティング マネージャー」がある場合、カウントしたいと思います。以下に、Excel ファイルのスクリーンショットとマクロのコードを示します。

スクリーンショット:

ここに画像の説明を入力

マクロ コード:

Sub Countif_Until_LastRow()

Dim lastRowColumnB As Long
lastRowColumnB = Range("B65000").End(xlUp).Row

For i = 2 To lastRowColumnB
Cells(i, 3) = Application.CountIf(Range("A:A"), Cells(i, 2))
Next
End Sub
4

1 に答える 1

4

これを試して：

Cells(i, 3) = Application.CountIf(Range("A:A"), "*" & Cells(i, 2) & "*")

* (スター) はワイルド char のように機能します

于 2013-03-22T10:01:48.797 に答える