指定した範囲のセル内の数値を検索したい(VBA)
いつもありがとうございます。
また皆様のお知恵を拝借したいと思い質問をさせて頂きました。
現在VBAを勉強中なのですが、以下の場合、コードはもっと簡単になるでしょうか？
【やりたい事】
プログラムを実行すると、シート２に数値が返されます。
※数値が返される範囲は「A1～A100」だとします。
シート2の「A1～A100」には「１～４」の数値が返され、それぞれの数値が何個あるかを検索。
検索した結果を、「シート１」の指定したセルに表示する。
【記述したコード】
dim x as integer
x = 0
For x = 1 To 101
If Sheets("シート2").Cells(x, 1) = "1" Then
1count = 1count + 1
End If
If Sheets("シート2").Cells(x, 1) = "2" Then
2count = 2count + 1
End If
If Sheets("シート2").Cells(x, 1) = "3" Then
3count = 3count + 1
End If
If Sheets("シート2").Cells(x, 1) = "4" Then
4count = 4count + 1
End If
Next x
上記のコードで「"x"count」に数値を加算していき、最終的に以下のように各数値をシート１に表示させています。
Sheets("シート1").Range("A1") = 1count
Sheets("シート1").Range("A2") = 2count
Sheets("シート1").Range("A3") = 3count
Sheets("シート1").Range("A4") = 4count
結果的にはうまくカウントされて、結果も正しく表示されるのですが、
列をまとめて検索してやる方法などがあれば、もっと短く分かりやすく
おさまるのではと思い、質問をさせて頂きました。
こうやるともっと簡単にできるよなどがあれば、教えて頂けないでしょうか。
Excelの関数などを使用しても構いません。
以上、よろしくお願いします。
お礼
無事、検索が機能しました！。詳しい回答ありがとうございました。