做一个Excel 数据比较的宏，高手请进-excel对比宏,EXCEL怎么用宏比对不同

请更改按照以下条件更改表e799bee5baa6e997aee7ad94e58685e5aeb9361格，然后在运行程序。

第一，sheet的名字一定要改成 MAIN
第二，保证A列没有空行。

代码全文如下：

Sub FIND_101()

Dim i As Long
Dim D, T, p

Set wkDA = ThisWorkbook.Worksheets("MAIN")

i = 1

Do While wkDA.Cells(i, 1) <> ""

T = wkDA.Cells(i, 1)

With wkDA.Columns(2)

Set D = .Find(T, lookat:=xlWhole)

If Not D Is Nothing Then

wkDA.Cells(i, 3) = "1"

Else

wkDA.Cells(i, 3) = ""

End If

End With

i = i + 1

Loop

wkDA.Cells.EntireColumn.AutoFit

Set wkDA = Nothing

End Sub

假若你hseet2与sheet3中数据是完全对应的就比较简单一点.
也就是说k4与k4,K5与K5比较,不能出现K4与K6比较的情况.
sub mac()
for i=4 to nn 'nn为你表中最大行e799bee5baa6e79fa5e98193e4b893e5b19e366的数值
If Sheets("sheet2").Cells(i, 1) < Sheets("sheet3").Cells(i, 1) Then
ss = i & ":" & i
Worksheets("Sheet2").Select
Rows(ss).Select
With Selection.Interior
.Color = 255
End With
Else
If Sheets("sheet2").Cells(i, 1).Interior.Color = 255 Then
s1 = i & ":" & i
Worksheets("Sheet2").Select

Rows(s1).Select

With Selection.Interior

.Pattern = xlNone
.TintAndShade = 0

End With
End If
End If
Next
End Sub
sub 比较()
dim I as integer
for I =1 to 10000
if range("A" & I) <> range("B" & I) then range("B" & I).Font.ColorIndex = 3
next
end sub
假定从第百1行到10000行比度较A、B两列问数据，如果答不同，把B列单元回格文字变红答

主要问题是你录制的时候缺少个判定，判断你指定的这一行有没有数据，没有数据就停止运行宏，或者先加一个命令来判断总共有多少行，然后就比对多少次。