countif関数で離れた場所を検索範囲にする。

countif関数で離れた場所を検索範囲にしたいのですが、いい方法がありますか？

普通に範囲指定するとA1:F6のようにはできますよね。
2列おきに範囲指定するよい方法はないかと思っています。どなたか教えていただけませんか？


　A B C D E F
１
２
３
４
５
６

No.2 ベストアンサー 回答者： taisuke555 回答日時： 2004/05/08 22:28

いくつか考えてみました。

　（COUNTIF１つで出来る方法は見つかりませんでした。）
気に入る方法があればいいですけど。

１．範囲毎に分ける
=COUNTIF(A1:A6,">5")+COUNTIF(D1:D6,">5")
又は
=SUMPRODUCT((A1:A6>5)+(D1:D6>5))

２．Mod関数とColumn関数を利用する。
　　列番号を3で割った時の余りが１で、値が５より大きいセルの個数
=SUMPRODUCT((MOD(COLUMN(A1:F6),3)=1)*(A1:F6>5))
　　（こちらは普通の関数。入力後、[Enter]で確定）
又は
=SUM((MOD(COLUMN(A1:F6),3)=1)*(A1:F6>5))
　　（こちらは配列数式。入力後、[Enter]の代わりに[Ctrl]+[Shift]+[Enter]）

３．VBAでユーザー関数を作成
=Countif2(">5",A1:A6,D1:D6)
（Countif2(条件,セル範囲１,セル範囲２,・・・・)

標準モジュール
Function COUNTIF2(条件, ParamArray セル()) As Long
　　Dim i As Long
　　For i = 0 To UBound(セル)
　　　　COUNTIF2 = COUNTIF2 + Application.WorksheetFunction.CountIf(セル(i), 条件)
　　Next i
End Function

すべて同じ結果になります。
・SUMPRODUCTと配列数式は列全体の指定は出来ません。A:F等
・２列分位なら範囲毎に指定してもいいと思います。

No.1 回答者： imogasi 回答日時： 2004/05/05 09:23

CountIf関数は範囲を１つしか指定できないようですが

２つ以上の範囲指定をできるようにして見ました（ユーザー関数を作りました。）
ツール－マクロ－ＶＢＥ（ここでVBE画面に変る）－挿入－標準モジュール－（ここで出ている画面に）下記のコードをコピペする。
Function countx(a As String, b As String)
d = Split(a, ",")
c = 0
For i = 0 To UBound(d)
c = c + Application.WorksheetFunction.CountIf(Range(d(i)), b)
Next i
countx = c
End Function
そしてワークシートに戻り、答えを入れたいセルに
=countx("A2:A9,C2:C9,D2:D9",">20")のようにいれて
下さい。
A2:A9,C2:C9,D2:D9の部分は（A)（前後）両端を””（半角）で括ること（CountIf関数と違う点）（B)範囲を並べるとき、区切りを半角カンマ（,）で区切ること
（C)カンマで区切って入れる数は１０や２０までなら制限なしと思う、でお願いします。範囲は列に拘ることなく、規則性なく、指定しても良い。
例　"A2:A3,C2:C9,E2:E9,D5:D5"など。