ExcelVBAについて。

質問

Sub データ抽出()
'
' データ抽出 Macro
'
'
Sheets("オリジナルデータ").Select
Range("A1").Select Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A"
Columns("A:E").Select
Selection.Copy
Range("B371").Select
Sheets("TR-A").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("オリジナルデータ").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("オリジナルデータ").Select
End Sub
コピーした後にTRーAを抽出した後に、どうやってB371を選択するのでしょうか？教えていただけると嬉しいです。もし、マクロの記録で作った場合です。
以下のURLをダウンロードしていただけないでしょうか？この章のチャプター5です。
https://www.shuwasystem.co.jp/support/7980html/2606.html

回答No.1

imogasi · ベストアンサー

先日の質問と同じ質問を繰り返しているな。
今回のＷＥＢ記事の「チャプター５」に行き着けなかった。
ーー
別例で解説すると、
例データをShee1の、A2:C11 とする、
性別 氏名 点数
男 山田 23
女 杉田 13
男 大山 45
女 杉山 36
女 木原 20
男 河原 69
女 川田 78
男 木谷 46
女 大野 44
このデータで、A列の性別で「女」を抜出し、結果の行をSheet3に出すとする。
ーー
標準モジュールに
Sub test01()
Set ws1 = Worksheets("Sheet1")
ws1.Range("a2").AutoFilter
ws1.Range("A2").AutoFilter Field:=1, Criteria1:="女", Operator:=xlFilterValues
ws1.Range("A2").CurrentRegion.Copy Worksheets("Sheet3").Range("a2")
End Sub
つくり、実行する。この簡潔さ（行数の少なさ）を見てほしい。
ーー
結果
Sheet3で　A2:C7
性別 氏名 点数
女 杉田 13
女 杉山 36
女 木原 20
女 川田 78
女 大野 44
となる。
ーー
要点
上記のws1.Range("A2").CurrentRegion.Copyの「CurrentRegion」という指定（プロパティ）
での捉え方を（Filterでは、結果を何かしようとするから）憶えるべきなんだ。
この課題の、定石ともいうべきものと思う。
ーー
いつまでも、たまたま、WEB記事で、B371とあったことにとらわれるべきでない。
マクロの記録でVBAコードを作ることも、余り頼るべきでない。
勉強態度が誤った方に行っていると思う。