オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください

Excelの表の2行目にオートフィルターをかけ、A列を#N/A以外で絞込み、A列からD列までの2行目以下を全て選択＆コピーする記述を教えていただけましたら幸いです。

※2行目以下の行数は、固定ではなく変動します

質問が拙くわかりづらかったら申し訳ありません。
イメージを添付いたします。

どうぞよろしくお願いいたします。

No.2 ベストアンサー 回答者： t_fumiaki 回答日時： 2022/04/01 16:34

Set SH = Worksheets("Sheet1")

SH.Range("A1").AutoFilter _
Field:=2, _
Criteria1:="<>#N/A"

MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

SH.Range(Cells(2, 2), Cells(MaxRow, 4)).Copy Sheets("Sheet2").Cells(2, 2)

この回答へのお礼

ご回答ありがとうございます！
したかった通りのことができ、大変助かりました！！
またどうぞよろしくお願いいたします。

お礼日時：2022/04/01 17:20

No.1 回答者： d-q-t-p 回答日時： 2022/04/01 15:22

B列のデータと A・C・D列が参照しているデータをクエリでマージして

読み込めばいいと思います。数式でやろうとするから手作業が入ります。

この回答へのお礼

ご回答ありがとうございます。
クエリでマージする方法がわからず、、、
勉強不足で申し訳ありませんm(_ _)m

お礼日時：2022/04/01 17:19