2つの同一の表を比較し、値が違うセルに色を付ける
二つの表を比較し、値が違うセルに色を付けます。
ChatGPTで作成したVBAコード
Sub CompareTables() Dim ws As Worksheet Dim lastRow1 As Long, lastRow2 As Long Dim i As Long, j As Long ' 「Sheet1」シートを設定 Set ws = ThisWorkbook.Sheets("Sheet1") ' 最終行を取得(A列とE列) lastRow1 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row lastRow2 = ws.Cells(ws.Rows.Count, 5).End(xlUp).Row ' A3からC列の最終行までの範囲を確認 For i = 3 To lastRow1 For j = 1 To 3 ' 左側の表のセルと右側の表のセルを比較 If ws.Cells(i, j).Value <> ws.Cells(i, j + 4).Value Then ' 値が異なる場合は黄色に塗る ws.Cells(i, j).Interior.Color = RGB(255, 255, 0) ws.Cells(i, j + 4).Interior.Color = RGB(255, 255, 0) End If Next j Next i End Sub
上のコードを作成するChatGPTのプロンプト
下記のVBAコードを、日本語のコメントをいれて作成してください。 処理対象:「Sheet1」シートのA3セルからC列の最終行までがデータの表と、「Sheet1」シートのE3セルからG列の最終行までがデータの表 処理:処理対象の2つの表を比較し、値の異なる双方のセルを黄色で塗る。
ChatGPTで作成しました
無料のChatGPT(Microsoft Copilot)で作成しました。
30年前の私は、必要なVBAコードの完成に6か月かかりました。しかしChatGPTを使えば、初心者でもわずか5分でコードを作成できます。
上記のChatGPTのシートやセルを変更して、あなたのVBAコードを作成してください。
VBAコードは、期待通りに動作し、エラーが発生しないかを必ずテストしてください。
知りたいことやエラー修正は、ChatGPT(Microsoft Copilot)がダイレクトにお答えします。