Excel VBmacros来比较工作表和输出结果到另一个工作表

我从这里使用macros： 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