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
で、Range(″B371″)がなくても良いのでしょうか？後、この後のプログラムを1行ずつ解説して頂けないでしょうか？教えていただけると嬉しいです。もし、マクロの記録で作った場合です。
以下のURLをダウンロードしていただけないでしょうか？この章のチャプター5です。
https://www.shuwasystem.co.jp/support/7980html/2606.html

回答No.2

imogasi · ベストアンサー

#1です。
Range("B371").SelectのRange("B371")はシート
は、Sheets("オリジナルデータ")のRange("B371")でしょう。
この後、関心がSheets("TR-A").Select
に移っている。しかしSheets("オリジナルデータ")のシートのアクチブセルはRange("B371")
だと思う。（注）選択セルの保持は、１シート内での、ユニークである。その後何も利用するとか、加工するコードは見られない。
それでRange("B371")の（選択の）理由は計り知れない、と思います。第３者に聞くべきことではない。コードの出典に何か書いてないか、調べること。
マクロの記録の結果は、こういう（もし誤ってした）無駄な操作も記録ーー＞VBA化される。
全般に、なぜそんなことを気にするのか、疑問に思う。
もっとVBAで、詮索すべき大事なことがいっぱいあるはず。

回答No.1

imogasi

操作を横で見ているつもりで、記すと、
「オリジナルデータ」というシートの、セル範囲"$A$1:$E$1000”を選択して、その範囲を対象にして、B列の値が、文字列の「TR-A」のものを抜き出し表示する。
ーー
その抜き出されたデータ範囲をコピーして、別途っ作られた、「TR-A」という名のシート（条件文字列と、わざと同名のシートを作っておいて）に張り付けている。起点は、Sheets("TR-A").シートの、A1セルだ。
最後にSheets("オリジナルデータ")シートに選択を戻している。
ーー
後じまいとして
Application.CutCopyMode = False　ーー＞コピーモードを解除
Selection.AutoFilter　ーー＞AutoFilterを解除ーー＞全行当初の状態に復帰
＝＝＝＝
こんな面倒な逐条解説を読者にさせず、
上記にふさわしい、適当な数のデータを作って、上記の操作をして、マクロの記録でも採って、比べてみれば勉強になるだろう。
余りにも、読者に頼りすぎだと思う。
＝＝
質問のコードは、マクロの記録を採って、それを挙げたようで、Selectがやたらに多い．
またSheets("TR-A").Selectの直後にRange("A1").Selectと２段構えに書いているなど、
如何に省くべきか勉強したら。
この癖を、将来、別件処理のVBAで、引き継がないように。

補足

B371はコピーした後、どのように選べば良いのでしょうか？抽出後に書かれていますよね？教えていただけると嬉しいです。