【ChatGPT×VBA】条件に一致したら、データを別シートに転記する（複数シート、縦に並べる、フィルター、コピー、セルの値が条件）

「NoCodeVBA」にようこそ！
「NoCodeVBA」はエクセルVBAマクロを作成する無料アプリです。

さて、検索値が一致したら、対応する値を転記するパターンは、

　❶一致したセル１つ（Vlookup関数）リンクはこちら

　❷一致した行の複数セル（Dictionary）リンクはこちら（2021以降のXLookup関数）

　❸一致した複数行（フィルター）

の３つがあります。

今回は❸の「条件に一致したら、データを別シートに転記する」VBAマクロを表示するChatGPTプロンプトを作成します。

ダイレクトにVBAコードを表示する場合はこちらから

※事例が３つあります

【事例１】　複数シートの行データを、条件に一致したら、別シートの最終行の下に転記する
【事例２】　複数シートの行データを、条件に一致したら、見出しを除き、指定した列のみ別シートの最終行の下に転記する
【事例３】　セルの値の条件に一致したら、別シートの最終行の下に転記する
まとめ
- プロンプトの書き方はこちらから↓↓↓
- アプリはこちらから↓↓↓

【事例１】　複数シートの行データを、条件に一致したら、別シートの最終行の下に転記する

各支店の商品名が”りんご”のデータを、”転記先”シートにコピーします

転記できました🤭

アプリの設定

アプリのトップページ　⇒　★ChatGPTのプロンプトとVBAコードを作成する

【４】処理する内容のプロンプト

"転記先"シートのA列の最終セルの一つ下のセルに、フィルター結果を見出しを含めて転記する
なお、"転記先"シートの最終セルが"A1"セルのときは"A1"セルに貼り付ける
・上記の処理がすべて終わったら、"転記先"シートを選択する

※　コピーし、実務に合わせ、青色の部分を差し替えてお使いください。

【ポイント】

【プロンプトの設定】　フィルターの処理であるに☑をいれ、フィルターをかける列を指定します。

【２】

「貼り付け先のシート」はコピー元ではないので、「転記先」を除いたシートが処理するシートです。

【４】　空白のシートで最終セルが１行目のとき、一つ下の２行目にコピーしないように、”なお書き”があります。

”なお書き”の前に、中点（・）は不要です。中点がないことで、その上のコピーペーストと一体化したコードが作成されます。

プロンプトを「BingのAIチャット」に貼り付け

「BingのAIチャット」のVBAコード

上記のコードで、各シートの商品名が"りんご”のデータが転記されました。😊