「NoCodeVBA」にようこそ！
「NoCodeVBA」はエクセルVBAマクロを作成する無料アプリです。
「条件に一致したら、データを別シートに転記する」VBAマクロを表示するChatGPTプロンプトを作成します。
- 【事例１】 複数シートの行データを、条件に一致したら、別シートの最終行の下に転記する
- 【事例２】 複数シートの行データを、条件に一致したら、見出しを除き、指定した列のみ別シートの最終行の下に転記する
- 【事例３】 セルの値の条件に一致したら、別シートの最終行の下に転記する
- まとめ
【事例１】 複数シートの行データを、条件に一致したら、別シートの最終行の下に転記する
各支店の商品名が”りんご”のデータを、”転記先”シートにコピーします
転記できました🤭
アプリの設定
アプリのトップページ ⇒ ★ChatGPTのプロンプトとVBAコードを作成する
【４】処理する内容のプロンプト
"転記先"シートのA列の最終セルの一つ下のセルに、フィルター結果を見出しを含めて転記する
なお、"転記先"シートの最終セルが"A1"セルのときは"A1"セルに貼り付ける
・上記の処理がすべて終わったら、"転記先"シートを選択する
※ コピーし、実務に合わせ、青色の部分を差し替えてお使いください。
【ポイント】
【プロンプトの設定】 フィルターの処理であるに☑をいれ、フィルターをかける列を指定します。
【２】
「貼り付け先のシート」はコピー元ではないので、「転記先」を除いたシートが処理するシートです。
【４】 空白のシートで最終セルが１行目のとき、一つ下の２行目にコピーしないように、”なお書き”があります。
”なお書き”の前に、中点（・）は不要です。中点がないことで、その上のコピーペーストと一体化したコードが作成されます。
プロンプトを「BingのAIチャット」に貼り付け
「BingのAIチャット」のVBAコード
上記のコードで、各シートの商品名が"りんご”のデータが転記されました。😊
【事例２】 複数シートの行データを、条件に一致したら、見出しを除き、指定した列のみ別シートの最終行の下に転記する
”転記先”シートに見出しのみセットします。
見出しを除き、支店名と金額の列のみ転記されました🤭
アプリの設定
アプリのトップページ ⇒ ★ChatGPTのプロンプトとVBAコードを作成する
【４】処理する内容のプロンプト
"転記先"シートのA列の最終セルの一つ下のセルに、フィルター結果を見出しを除いて転記する
・上記の処理がすべて終わったら、"転記先"シートを選択する
・"転記先"シートのB列からD列を削除する
※ コピーし、実務に合わせ、”シート名”や”セル”を差し替えてお使いください。
【ポイント】
【プロンプトの設定】 フィルターの処理であるに☑をいれ、フィルターをかける列を指定します。
【２】
「貼り付け先のシート」はコピー元ではないので、「転記先」を除いたシートが処理するシートです。
【４】 ”A列とE列のみ転記する”は回答がブレるため、”B列からD列を削除する”にしました。意図したとおり動かない場合は、処理自体の変更を考えます。
プロンプトを「BingのAIチャット」に貼り付け
「BingのAIチャット」のVBAコード
上記のコードで、意図したとおり転記されました。😊
【事例３】 セルの値の条件に一致したら、別シートの最終行の下に転記する
A１セルの値の”りんご”と商品名が一致した行のデータを、”転記先”シートにコピーします
転記できました🤭
アプリの設定
アプリのトップページ ⇒ ★ChatGPTのプロンプトとVBAコードを作成する
【４】処理する内容のプロンプト
"転記先"シートのA列の最終セルの一つ下のセルに、フィルター結果を見出しを含めて転記する
なお、"転記先"シートの最終セルが"A1"セルのときは"A1"セルに貼り付ける
・上記の処理がすべて終わったら、"転記先"シートを選択する
※ コピーし、実務に合わせ、青色の部分を差し替えてお使いください。
【ポイント】
【プロンプトの設定】 フィルターの処理であるに☑をいれ、フィルターをかける列を指定します。
【３】 処理する条件は、セルの値を参照することができます。
【４】 空白のシートで最終セルが１行目のとき、一つ下の２行目にコピーしないように、”なお書き”があります。
”なお書き”の前に、中点（・）は不要です。中点がないことで、その上のコピーペーストと一体化したコードが作成されます。
プロンプトを「BingのAIチャット」に貼り付け
「BingのAIチャット」のVBAコード
上記のコードで、商品名が"ぶどう”のデータが転記されました。😊
まとめ
手作業で数分かかる作業が、1秒で終わります。
ぜひ、アプリをご利用ください。
