ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】二つのデータを比較照合するマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、二つのデータを比較照合するマクロを作成してみました。

汎用性が高いのでコピペしてそのまま使っていただいけたら幸いです。

 

 

<元データ>

f:id:gorilla-strong:20200327210019p:plain

f:id:gorilla-strong:20200327210106p:plain

データ1とデータ2を比較照合します。

データ1には全てのセルに1を入力してあります。

データ2には対角線上のセルに5を入力してあります。

二つのデータを比較して異なるデータが入っているセルに塗りつぶしをします。

 

 

 

<マクロ実行後>

f:id:gorilla-strong:20200327210436p:plain

f:id:gorilla-strong:20200327210516p:plain

上図のように異なる値が入っているセルにはピンク色の塗りつぶしを、同じ値が入っているセルには塗りつぶしなしを設定しています。

動作としては以上です。 

 

 

 

ソースコード

Sub 照合用マクロ()

Dim data1, data2 As Object
Set data1 = ThisWorkbook.Worksheets(1)
Set data2 = ThisWorkbook.Worksheets(2)

Dim lastrow, lastcolumn As Long
lastrow = data1.Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = data1.Cells(1, Columns.Count).End(xlToLeft).Column

For i = 1 To lastrow

For j = 1 To lastcolumn

If data1.Cells(i, j) <> data2.Cells(i, j) Then
    data1.Cells(i, j).Interior.ColorIndex = 7
    data2.Cells(i, j).Interior.ColorIndex = 7
ElseIf data1.Cells(i, j) = data2.Cells(i, j) Then
    data1.Cells(i, j).Interior.ColorIndex = 0
    data2.Cells(i, j).Interior.ColorIndex = 0
End If

Next

Next


End Sub

 

 

以上、ゴリラストロングでした。