excel Cell 比較

楽々(^-^)コンペア

シート「はじめに」:実行ボタン

シート「コンペア１」

シート「コンペア２」

●使用方法

① シート「コンペア１」、及び「コンペア２」に、それぞれ比較するデータを貼り付ける。

② 実行ボタンを押す。

UserForm2あり。

Sub comp_main()
Dim i As Integer
Dim j As Integer
Dim count As Integer
Dim Sheet1() As String
Dim Sheet2() As String

‘—–　データ入力領域取得処理　————————————–

Dim x1 As Long
Dim y1 As Long
Dim x As Long
Dim y As Long

Sheets(“コンペア１”).Select
On Error Resume Next
y1 = Cells.Find(“*”, Range(“A1”), , , xlByRows, xlPrevious).Row
x1 = Cells.Find(“*”, Range(“A1”), , , xlByColumns, xlPrevious).Column
If Err <> 0 Then
MsgBox “コンペア１シートにデータがありません。”
GoTo 999
End If
On Error GoTo 0

Sheets(“コンペア２”).Select
On Error Resume Next
y = Cells.Find(“*”, Range(“A1”), , , xlByRows, xlPrevious).Row
x = Cells.Find(“*”, Range(“A1”), , , xlByColumns, xlPrevious).Column
If Err <> 0 Then
MsgBox “コンペア２シートにデータがありません。”
GoTo 999
End If
On Error GoTo 0

If x1 > x Then
x = x1
End If

If y1 > y Then
y = y1
End If

‘—–　メイン処理　————————————–

ReDim Sheet1(y, x)
ReDim Sheet2(y, x)

Sheets(“コンペア１”).Select
Application.ScreenUpdating = False
For j = 1 To x
For i = 1 To y
Sheet1(i, j) = Cells(i, j)
Next i
Next j

Sheets(“コンペア２”).Select
For j = 1 To x
For i = 1 To y
Sheet2(i, j) = Cells(i, j)
Next i
Next j

Sheets(“コンペア１”).Select
Cells.Select
Selection.Interior.ColorIndex = xlNone

Sheets(“コンペア２”).Select
Cells.Select
Selection.Interior.ColorIndex = xlNone

count = 0

For j = 1 To x
For i = 1 To y
If Sheet1(i, j) <> Sheet2(i, j) Then
Sheets(“コンペア１”).Select
Cells(i, j).Select
Selection.Interior.ColorIndex = 4
Sheets(“コンペア２”).Select
Cells(i, j).Select
Selection.Interior.ColorIndex = 4
count = count + 1
End If
Next i
Next j

Sheets(“コンペア１”).Select

UserForm2.TextBox1.Value = count
UserForm2.Show

999

End Sub