指定範囲したセルに含まれる数字が何個あるか調べる方法

質問

指定範囲したセルに含まれる数字が何個あるか調べる方法

（C1:E4）の範囲に
123 234 012
234 345 123
345 456 234
456 567 345

とあるとします。

この（C1:E4）の範囲のセルに "1"を含むセルが何個あるかをA1に表示させる（例だとA1に3と表示）にはどうしたらいいでしょうか？
また、（C1:E4)の範囲に"23"を含むセルが何個あるかをA2に表示させる（例だとA2に5と表示）、
（C1:E4)の範囲に"2"と"4"を含むセルが何個あるかをA3に表示させる（例だとA3に3と表示）、
といった方法はありますでしょうか？

また、（C1:E4）で範囲を固定するのでなく、
あるActiveCellから(4:3)の範囲のセルで上記のようなこと行うことは出来ますか？

例だと
ActiveCellがC1とすると
そこから(4:3)の範囲で（C1:E4)を指定
ActiveCellから(0,-2)の位置がA1
ActiveCellから(1,-2)の位置がA2
ActiveCellから(2,-2)の位置がA3

これが、
ActiveCellがE6になったとすると
範囲で（E6:G9)を指定
ActiveCellから(0,-2)の位置がC6
ActiveCellから(1,-2)の位置がC7
ActiveCellから(2,-2)の位置がC8

といった感じで出来るのでしょうか？

是非ともよろしくお願いします。

回答No.2

Hardking · ベストアンサー

Offsetメソッドでアクティブセルからの相対セルを参照し
各セル値をInstr関数で文字検索し、該当すればカウントアップし
合計値をA1,A2,A3に表示する処理を下記します。

Dim strVal As String
Dim icount_1, icount_23, icount_24 As Integer
Dim colidx, rowidx As Integer

icount_1 = 0
icount_23 = 0
icount_24 = 0
For rowidx = 0 To 3
For colidx = 0 To 2

strVal = ActiveCell.Offset(rowidx, colidx).Value

If (InStr(strVal, "1") > 0) Then
icount_1 = icount_1 + 1
End If

If (InStr(strVal, "23") > 0) Then
icount_23 = icount_23 + 1
End If

If (InStr(strVal, "2") > 0) Then
If (InStr(strVal, "4") > 0) Then
icount_24 = icount_24 + 1
End If
End If

Next colidx
Next rowidx

'A1に表示
ActiveSheet.Cells(1, 1).Value = icount_1
'A2に表示
ActiveSheet.Cells(1, 2).Value = icount_23
'A3に表示
ActiveSheet.Cells(1, 3).Value = icount_24

お礼

試してみましたが、バッチリです！
自分でも調べていたんですが、まだかじった程度でわからなくて・・・
正確な解答ありがとうございました。

回答No.1

himajin100000

http://cid-b89cb784f5346675.office.live.com/browse.aspx/TestCase/Q5977127?uc=1

お礼

エクセルデータをUPして頂きありがとうございます。
参考にさせて頂きます。