生成AI活用研究
Geminiと100本ノック 10本目：行の削除

Geminiと100本ノック 10本目：行の削除

AIのGeminiがVBA100本ノックに挑戦！

VBA100本ノックの出題と解答

Geminiへの出題とGeminiの回答

Geminiの回答	Geminiへの出題
	VBA問題 画像のように「受注」シートに今月の受注データがあります。 受注数が空欄かつ備考欄に「削除」または「不要」の文字が含まれている行を削除してください。 行の削除は行全体を削除してください。 サンプルでは5行目と10行目を削除
はい、承知いたしました。「受注」シートで、受注数が空欄かつ備考欄に「削除」または「不要」が含まれる行を削除するVBAコードを作成します。 以下のVBAコードを標準モジュールに貼り付けて実行してください。 VBA Sub DeleteRowsByConditions() 　Dim ws As Worksheet 　Dim lastRow As Long 　Dim i As Long 　' 対象のシートを設定 　On Error Resume Next 　Set ws = ThisWorkbook.Sheets("受注") 　On Error GoTo 0 　If ws Is Nothing Then 　　MsgBox "「受注」シートが見つかりません。", vbCritical 　　Exit Sub 　End If 　' データの最終行を取得 　' 例としてA列を基準にしていますが、データが入っている可能性のある他の列でも構いません。 　lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row 　' 最終行から2行目まで逆順にループ (1行目はヘッダーとしてスキップ) 　For i = lastRow To 2 Step -1 　　' 受注数（C列）が空欄 かつ 備考（D列）に「削除」または「不要」が含まれているか判定 　　If IsEmpty(ws.Cells(i, "C").Value) And (InStr(ws.Cells(i, "D").Value, "削除") > 0 Or InStr(ws.Cells(i, "D").Value, "不要") > 0) Then 　　　' 条件を満たす場合、行全体を削除 　　　ws.Rows(i).Delete 　　End If 　Next i 　MsgBox "条件に一致する行の削除が完了しました。", vbInformation End Sub コードの説明: Dim ws As Worksheet, Dim lastRow As Long, Dim i As Long: 必要な変数を宣言します。 Set ws = ThisWorkbook.Sheets("受注"): "受注"という名前のシートを変数wsに設定します。シートが見つからない場合はエラーメッセージを表示して終了します。 lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row: データの最終行を取得します。ここではA列を基準にしていますが、実際にデータが入っている列に合わせて変更してください。 For i = lastRow To 2 Step -1: 最終行から2行目まで1行ずつ逆順にループします。逆順にすることで、行を削除しても処理すべき行のインデックスがずれないようにします。1行目はヘッダー行と見なしてスキップしています。 If IsEmpty(ws.Cells(i, "C").Value) And (InStr(ws.Cells(i, "D").Value, "削除") > 0 Or InStr(ws.Cells(i, "D").Value, "不要") > 0) Then: 条件判定を行います。 IsEmpty(ws.Cells(i, "C").Value): C列のセルが空欄であるかを確認します。 InStr(ws.Cells(i, "D").Value, "削除") > 0: D列のセルに「削除」という文字列が含まれているかを確認します。InStr関数は文字列が見つかればその開始位置を返し、見つからなければ0を返します。 InStr(ws.Cells(i, "D").Value, "不要") > 0: D列のセルに「不要」という文字列が含まれているかを確認します。 And (...): C列が空欄かつD列に「削除」または「不要」のどちらかが含まれている、という条件をANDで結合しています。 ws.Rows(i).Delete: 条件を満たした場合、その行全体を削除します。 Next i: 次の行に移ります。 MsgBox "条件に一致する行の削除が完了しました。", vbInformation: 処理完了のメッセージを表示します。 コードの実行方法: Excelを開き、Alt + F11キーを押してVBAエディターを開きます。 メニューバーの「挿入」から「標準モジュール」を選択します。 表示されたコードウィンドウに上記のVBAコードを貼り付けます。 VBAエディターを閉じ、Excelシートに戻ります。 Alt + F8キーを押してマクロダイアログを開きます。 リストから「DeleteRowsByConditions」を選択し、「実行」ボタンをクリックします。 これにより、「受注」シートで指定した条件に合う行が削除されます。

これはもう何も言うことはないです。
画像から正確にエクセルシートを読み取ってVBAをしっかり記述しています。
大したものです。

AI神髄VBAへの出題とAI神髄VBAの回答

AI神髄VBAの回答	AI神髄VBAへの出題
	VBA問題 画像のように「受注」シートに今月の受注データがあります。 受注数が空欄かつ備考欄に「削除」または「不要」の文字が含まれている行を削除してください。 行の削除は行全体を削除してください。 サンプルでは5行目と10行目を削除
はい、承知いたしました。「受注」シートのデータについて、受注数が空欄かつ備考欄に「削除」または「不要」が含まれる行を削除するVBAコードを作成します。AutoFilter機能を使用して効率的に処理を行います。 VBA Sub DeleteRowsBasedOnCriteria() 　' 変数の宣言 　Dim ws As Worksheet 　Dim lastRow As Long 　Dim dataRange As Range 　' 処理対象シートの設定 　Set ws = ThisWorkbook.Sheets("受注") 　' AutoFilterが設定されている場合は解除 　If ws.AutoFilterMode Then 　　　ws.AutoFilter.ShowAllData 　End If 　' データの最終行を取得 (A列を基準) 　lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row 　' データ範囲を設定 (ヘッダー行を含む) 　Set dataRange = ws.Range("A1:D" & lastRow) 　' AutoFilterを設定 　' フィールド3 (受注数) が空白 　' フィールド4 (備考) に "削除" または "不要" を含む 　dataRange.AutoFilter Field:=3, Criteria1:="" 　dataRange.AutoFilter Field:=4, Criteria1:="*削除*", Operator:=xlOr, Criteria2:="*不要*" 　' 可視セル（フィルターで抽出された行）が存在するか確認し、ヘッダー行以外を削除 　On Error Resume Next ' 可視セルがない場合のエラーを無視 　ws.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp 　On Error GoTo 0 ' エラーハンドリングを戻す 　' AutoFilterを解除 　ws.AutoFilter.ShowAllData 　' 後処理 　Set ws = Nothing 　Set dataRange = Nothing End Sub コードの説明: ws 変数に「受注」シートを設定します。 もし既にAutoFilterが設定されていたら、ShowAllDataで解除します。 データの最終行を取得し、dataRangeに変数を設定します。この範囲にはヘッダー行（1行目）を含めます。 AutoFilterメソッドを使用してフィルタリングを行います。 Field:=3, Criteria1:="": 3列目（受注数）が空白の行を抽出します。 Field:=4, Criteria1:="*削除*", Operator:=xlOr, Criteria2:="*不要*": 4列目（備考）に"削除"または"不要"が含まれる行を抽出します。*はワイルドカードで、前後に任意の文字列があってもマッチします。Operator:=xlOrでOR条件を指定しています。 ws.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible)で、フィルターによって表示されている行の中から、ヘッダー行を除いた部分の可視セル（実際に抽出された行）を取得します。 .Delete Shift:=xlUpで、取得した可視セル（行）を削除し、下にあるセルを上方向にシフトします。可視セルがない場合はエラーになるため、On Error Resume Nextでエラーを一時的に無視しています。 行の削除後、ws.AutoFilter.ShowAllDataでAutoFilterを解除し、すべての行を表示状態に戻します。 使用したオブジェクト変数を解放します。 このコードを実行することで、条件に合致する行が効率的に削除されます。

本当に驚きました。
この出題に対して、一発目でこのVBAを回答してくるとは・・・
すごいです！AI神髄VBA
ぜひ元の私の解答・解説と比較してみてください。
VBA100本ノック 10本目：行の削除

・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ