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
このプログラムでB３７１は何を意味するのでしょうか？教えて頂けると幸いです。
B371は、TRーAではないのに、その時に、A列〜E列をコピーした後で、B371は普通選べないと思うのですが。教えていただけると嬉しいです。すみません。

No.5 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/11/29 20:42

どの道著者の考えにより作成したコードですしね。

どうしてそうしたかは著者次第ですよ。

この回答へのお礼

ダウンロードしました？やはり無理ですか？教えていただけると嬉しいです。

お礼日時：2022/11/29 20:51

No.4 回答者： めぐみん_ 回答日時： 2022/11/29 20:13

なぜコードの作成者に聞かないのですか？

私はこのＥｘｃｅｌブックを見る事が出来ないのですよ。
従って推測で回答しているだけです。
と最初に申し上げてます。

この回答へのお礼

書籍だからです。以下のURLにダウンロードしていただけないでしょうか？この本の第5章です。チャプター5です。教えていただけると嬉しいです。
https://www.shuwasystem.co.jp/support/7980html/2 …

お礼日時：2022/11/29 20:35

No.3 回答者： めぐみん_ 回答日時： 2022/11/29 17:38

＞スクロールのコードは消してB371については消し忘れたとはどういう事でしょうか？

このコードの作成者に聞いてみないと私には不明です。

この回答へのお礼

いえ、そういうことではなくて、スクロールのコードは消して、B371を消し忘れたとはどういう状態かを聞きたいのです。それとNo.1の最後の2行は一体どういう状態かを知りたいのです。教えていただけると嬉しいです。すみません。

お礼日時：2022/11/29 19:49

No.2 回答者： めぐみん_ 回答日時： 2022/11/28 17:55

＞最後の2行を少し詳しく教えていただけると嬉しいです。

あくまでも推測です。
もっと上にデータがあるなら『マクロの自動記録』ですとスクロールとかが記録されるので、それがない点からの回答です。
或いは作成された方がスクロールのコードは消してＢ３７１については消し忘れたのかどうか・・・？

この回答へのお礼

スクロールのコードは消してB371については消し忘れたとはどういう事でしょうか？教えていただけると嬉しいです。

お礼日時：2022/11/29 16:29

No.1 回答者： めぐみん_ 回答日時： 2022/11/27 20:22

逆ですよ。

何故そのコードがあるのか作成した人にしかわかりません。
敢えて言えるのは『マクロの自動記録』でそのセルを選択したのが残ってしまったとは考えられますけど。
それも推測であり事実はやっぱコード作成者が握っているかと。

あとはＡ～Ｅ列をＢ列に対し『TR-A』でフィルターをかけた際、一番最初に来た値が３７１行目でＢ３７１をつい選択してしまったのかも。

この回答へのお礼

一番最初に来た値が、371行目というのは、どういうことでしょうか？
最後の2行を少し詳しく教えていただけると嬉しいです。

お礼日時：2022/11/28 16:58