excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける

excelにて、特定の列に数字が入力してあれば、入力してある行をコピーして
別ファイルに張り付けたいのですが、お分かりになる方がおりましたら
マクロのコードを　ご教授頂ければありがたいです。

詳細
１，コピー元ファイル名⇒　A
シート名⇒A
特定の列⇒J列のＪ６～入力してあり、ﾃﾞｰﾀｰは1000くらい、空欄、文字も入力してあります
A～BUまで使用

２，コピー先ファイル名⇒　Ｂ
シート名⇒B

AファイルAシートのＪ６（J列）以降に数字が入力してあれば（空欄あり、文字も入力してあります）、数字が入力してある行をコピーして、BファイルBシートのA2行以降に張り付けたいです

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2022/08/11 09:51

次のステートメントは、J列が数字であるすべての行のA:BU列をコピーします。

後は、貼り付け先にペーストするだけなので、適当にやってみて下さい。

Intersect(Columns("J:J").SpecialCells(xlCellTypeConstants, 1).EntireRow, Columns("A:BU")).Copy

この回答へのお礼

いつも対応していただきありがとうございます。
障害があるものですから、なかなかうまくいかず
何とかできそうです。

感謝いたします

お礼日時：2022/08/13 09:04

No.1 回答者： 河内のおやじ 回答日時： 2022/08/11 06:01

シートBのJ6に=AJ6として1000までドラッグして下さい。

この回答へのお礼

ありがとうございます。
でも、意味がわかりません

お礼日時：2022/08/11 06:07