セルの値が上のセルの値と異なるとき、行を挿入する
A列を基準に、空白行を挿入します。
ChatGPTで作成したVBAコード
Sub InsertBlankRows() Dim ws As Worksheet Dim lastRow As Long Dim i As Long ' 対象シートを「Sheet1」に設定 Set ws = ThisWorkbook.Sheets("Sheet1") ' データの最終行を取得 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 最後の行から3行目までループ For i = lastRow To 3 Step -1 ' A列の値が上のセルの値と異なる場合、行を挿入 If ws.Cells(i, 1).Value <> ws.Cells(i - 1, 1).Value Then ws.Rows(i).EntireRow.Insert End If Next i ' オブジェクト変数をクリア Set ws = Nothing End Sub
上のコードを作成するChatGPTのプロンプト
下記のVBAコードを、日本語のコメントをいれて作成してください。 処理対象:「Sheet1」シートのA3セルからC列の最終行までがデータの表。 処理:A列の値が上のセルの値と異なったら、その行に空白行を挿入する。
ChatGPTで作成しました
無料のChatGPT(Microsoft Copilot)で作成しました。
30年前の私は、必要なVBAコードの完成に6か月かかりました。しかしChatGPTを使えば、初心者でもわずか5分でコードを作成できます。
上記のChatGPTのシートやセルを変更して、あなたのVBAコードを作成してください。
VBAコードは、期待通りに動作し、エラーが発生しないかを必ずテストしてください。
知りたいことやエラー修正は、ChatGPT(Microsoft Copilot)がダイレクトにお答えします。