オートフィルタのようなマクロ

質問

ゴルフのスコア表を作っているのですがある打数の人を検索して一覧で表示したいのですが方法はあるでしょうか？超初心者ではありませんがまだまだ初心者です。教えて下さいお願いします。
スコア表を入力してある人の行に１８ホール分のスコアを入力します。
例えばＡ－１に名前Ｂ-1からＳ-1までにスコアを入力します。
これと同じ用に
Ａ-2からＳ-2までＡ-3からＳ-3までというように各スコアをそれぞれ入力するとします。
そこでオートフィルタを使うとどこかの列のスコアしか抽出できないと思うのですが
やりたいこととしては
例えば３人分入力していたとすると
Ａ-2からＳ-3までのスコア全てから例えばホールインワンの人（スコアが1の人）
を抽出したいのですが方法はあるでしょうか？

回答No.3

imogasi

#2です。マクロの記録を改造してできるコードを思いついたので追加しておきます。
例データ　Ａ１：Ｓ４
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
山田 4 5 3 3 4 5 7 5 5 6 3 4 5 6 3 4 6 5
上田 3 4 4 4 4 4 6 5 8 7 3 5 6 6 4 4 6 5
鈴木 5 4 4 5 4 5 5 6 6 5 4 7 4 7 3 5 8 5
コード
標準モジュールに
Sub Macro1()
x = InputBox("指定スコア")
c = Application.WorksheetFunction.CountIf(Range("B2:S4"), x)
MsgBox c
k = 2
'---
Range("B2:S4").Select
Selection.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
'----
cl = ActiveCell.Column
rw = ActiveCell.Row
Worksheets("Sheet2").Cells(k, "A") = Worksheets("Sheet1").Cells(rw, "A") '競技者
Worksheets("Sheet2").Cells(k, "B") = Worksheets("Sheet1").Cells(1, cl) 'ラウンド
k = k + 1
'----
For i = 1 To c - 1
Selection.FindNext(After:=ActiveCell).Activate
cl = ActiveCell.Column
rw = ActiveCell.Row
Worksheets("Sheet2").Cells(k, "A") = Worksheets("Sheet1").Cells(rw, "A") '競技者
Worksheets("Sheet2").Cells(k, "B") = Worksheets("Sheet1").Cells(1, cl) 'ラウンド
k = k + 1
Next
End Sub
ーーー
結果
Ｓｈｅｅｔ２に
Ａ列　　　Ｂ列
競技者 ラウンド
山田 10
山田 14
山田 17
上田 7
上田 13
上田 14
上田 17
鈴木 8
鈴木 9
ーーーーー
改造前のマクロの記録は
操作は
ツールーマクロー新しいマクロの記録
Ｂ２：Ｓ４を範囲指定
編集ー検索ー（例えば）６を入力ー次を検索ー次を検索・・
それと上記コードを比べると、改造箇所がわかりますが、改造もなれないと難しいものと思うが。
ただ上記のやり方が絶対唯一ではない。