vba - シートを比較して結果を別のシートに出力する Excel VB マクロ

Question

ここからマクロを使用しています: http://answers.yahoo.com/question/index?qid=20060906110734AA9t2l9差分を強調表示します。ただし、50000 行あり、そのうちの 2 つだけが異なる場合は、干し草の山の問題です。

私ができるようにしたいのは、変更前と変更後を並べて、別のシートで違いを確認することです。これについての助けをいただければ幸いです。

Answer 1

既存のコードへの小さな追加：

Sub Compare_Sheets()

Dim v1,v2
Dim diffRow as long

Set From_WS = Workbooks("Book1").Worksheets("Sheet1")
Set To_WS = Workbooks("Book2").Worksheets("Sheet2")
Set diffWS = Thisworkbook.Sheets("Diff")

diffRow = 1

With From_WS.Cells(1, 1).CurrentRegion
    Total_Rows = .Rows.Count
    Total_Columns = .Columns.Count
End With

For Rows_Counter = 1 To Total_Rows
For Column_Counter = 1 To Total_Columns
v1 = Trim(LCase(From_WS.Cells(Rows_Counter, Column_Counter).Value))
v2 = Trim(LCase(To_WS.Cells(Rows_Counter, Column_Counter).Value)) 

If v1 <> v2 Then
    From_WS.Cells(Rows_Counter, Column_Counter).Interior.ColorIndex = 4
    To_WS.Cells(Rows_Counter, Column_Counter).Interior.ColorIndex = 5

    With diffWS.Rows(diffRow)
        .Cells(1).value=From_WS.Cells(Rows_Counter, Column_Counter).Address()
        .Cells(2).value = v1
        .Cells(3).value= v2
        diffRow = diffRow + 1
    End With

End If

Next Column_Counter
Next Rows_Counter

End Sub