”アクティブ行（列）との相違”の機能はメニューから”編集”−”ジャンプ”−”セル選択”で表示される選択オプションダイアログでして出来る機能です。
サンプル１ではアクティブセルと、アクティブセルを含む行のデータを比較し、相違するセルを選択します。
（サンプル１）
Dim TargetRow As Range
Dim Different As Range
Set TargetRow = ActiveCell.EntireRow
Set Different = TargetRow.RowDifferences(ActiveCell)
Different.Select
※RowDifferencesメソッド、ColumnDifferencesメソッドの引数に基準となるセル
を指定します。
サンプル２では、アクティブシートのデータをA列のセルを基準に項目行以外のすべての列をチェックし、相違セルに塗りつぶしを設定します。
（サンプル２）
※一行目を項目行とし、比較基準セルをA列の各行のセルとする
Sub PaintDifCell()
Dim DataArea As Range, TargetRow As Range, Different As Range
Dim i As Long
Set DataArea = Range("A1").CurrentRegion
For i = 2 To DataArea.Rows.Count
On Error GoTo Err_Proc
DataArea.Rows(i).RowDifferences(Cells(i, 1)). _
Interior.Color = RGB(250, 150, 250) '相違セルの塗りつぶし
Next i
Exit Sub
'エラー番号1004を相違セルがない場合とみなしてエラー処理
Err_Proc:
If Err.Number = 1004 Then
Err.Clear
Resume Next
Else
MsgBox "Error : " & Err.Description
Exit Sub
End If
End Sub
