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/2 …

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/12/11 10:30

＞出版社側とは、どこで聞けば良いのでしょうか？

この質問の元になった書籍をお持ちなのでは？
その書籍の説明サンプルとしてリンク先にて公開されている物でしょ？

ともあれこのリンク先のサイトは出版社側が運営してます。
よってトップページの『お問い合わせ』リンクのここから質問をされてみては？
https://www.shuwasystem.co.jp/contact/

No.1 回答者： めぐみん_ 回答日時： 2022/12/10 20:53

出版社側に聞いてみるしかないのでは？

著者がミスった可能性もありますので。
（他に作ったコードをコピペで貼り付けた際に関係ない箇所の削除漏れとか）

この回答へのお礼

出版社側とは、どこで聞けば良いのでしょうか？教えていただけると嬉しいです。

お礼日時：2022/12/11 03:09