【ノーコード】VBAコードを作成する無料アプリ

AIで自分の価値を高める方法とは🙄

MENU

【VBAとChatGPT入門】セルの値が上のセルの値と異なるとき、行を挿入する

セルの値が上のセルの値と異なるとき、行を挿入する

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)がダイレクトにお答えします。