エクセルのマクロについて。100点の生徒のみ選ぶ

小テストの結果を入力したのち、100点を取った生徒のみ抽出して一覧にすることと、60点未満の生徒のみを抽出して一覧にする2つのことをしたいです。
どういうマクロを書いたらいいですか。

No.1 ベストアンサー 回答者： tom04 回答日時： 2013/11/01 22:25

こんばんは！

オートフィルタを使うのが一番手っ取り早いと思います。
データのレイアウトが判らないので、勝手にやってみました。

Sheet1のA列に氏名・B列に点数が入っているとして、
100点のデータをSheet2のA・B列に！
60点未満のデータをSheet2のD・E列に表示するようにしています。

Sheet1のシートモジュールにしています。

Sub Sample1()
Dim wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.Clear
With Range("A1").CurrentRegion
.AutoFilter field:=2, Criteria1:=100
.Copy wS.Range("A1")
.AutoFilter field:=2, Criteria1:="<60"
.Copy wS.Range("D1")
End With
AutoFilterMode = False
End Sub

※　元データの列数が判らないので貼り付けセルは実状に合わせてください。m(_ _)m

この回答へのお礼

早速のご回答、ありがとうございました。やりたかったことが完璧にできており、大変嬉しく、また感動いたしました。
本当にありがとうございます。

お礼日時：2013/11/01 23:03