条件に合うデータを抽出して別シートへ転記する
フィルターオプションでフィルターを実行します。
ChatGPTで作成したVBAコード
Sub FilterWithOptions() ' リスト範囲を設定(Sheet1のA1セルから右方向へ) Dim listRange As Range Set listRange = Sheet1.Range("A1").CurrentRegion ' 検索条件範囲を設定(Sheet1のE1セルから右方向へ) Dim criteriaRange As Range Set criteriaRange = Sheet1.Range("E1").CurrentRegion ' 抽出結果シートを作成または既存シートをクリア Dim resultSheet As Worksheet On Error Resume Next Set resultSheet = Worksheets("抽出結果") On Error GoTo 0 If resultSheet Is Nothing Then Set resultSheet = Worksheets.Add resultSheet.Name = "抽出結果" Else resultSheet.Cells.Clear End If ' フィルターオプション処理を実行し、抽出結果シートのA1セルに出力 listRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteriaRange, CopyToRange:=resultSheet.Range("A1"), Unique:=False End Sub
上のコードを作成するChatGPTのプロンプト
下記のVBAコードを、日本語のコメントをいれて作成してください。 Sheet1のA1セルの右上セルをリスト範囲とし、Sheet1のE1セルの右上セルを検索条件範囲とし、「抽出結果」シートのA1セルを出力先とするフィルターオプション処理。
ChatGPTで作成しました
無料のChatGPT(Microsoft Copilot)で作成しました。
30年前の私は、必要なVBAコードの完成に6か月かかりました。しかしChatGPTを使えば、初心者でもわずか5分でコードを作成できます。
上記のChatGPTのシートやセルを変更して、あなたのVBAコードを作成してください。
VBAコードは、期待通りに動作し、エラーが発生しないかを必ずテストしてください。
知りたいことやエラー修正は、ChatGPT(Microsoft Copilot)がダイレクトにお答えします。