[已解决]请大侠帮忙，关于两表数据对比的

sugar2016 · 发表于 2009-10-9 17:36

要求把当月表中的兰色部分与默认表中的相应部分比较一下，如果相比默认表有增加，就用程序运行完之后用MSGBOX把行数列出！请大侠帮忙，谢谢了

另注：当月表中用黄色标出行为新增的，也是运行之后应该列出的行

NcIqqiOz.rar (7.76 KB, 下载次数: 4)

开辆小富康 · 发表于 2009-10-9 18:45

Sub 比对()
Dim Arr1, Arr2, Arr_mr, Arr_dy, str As String, Row_mr As Long, Row_dy As Long
Dim temprow As Long
With Sheets("默认")
temprow = .Range("b65536").End(xlUp).Row
Arr1 = .Range("B7:F" & temprow)
End With
With Sheets("当月")
temprow = .Range("b65536").End(xlUp).Row
Arr2 = .Range("B7:F" & temprow)
End With
ReDim Arr_mr(1 To UBound(Arr1))
For i = 1 To UBound(Arr1)
Arr_mr(i) = Arr1(i, 1) & Arr1(i, 3) & Arr1(i, 5)
Next
ReDim Arr_dy(1 To UBound(Arr2))
For i = 1 To UBound(Arr2)
Arr_dy(i) = Arr2(i, 1) & Arr2(i, 3) & Arr2(i, 5)
Next
Row_mr = 1: Row_dy = 1
Do
If Arr_dy(Row_dy) <> Arr_mr(Row_mr) Then
s = s & Row_dy + 6 & "行,"
Row_mr = Row_mr - 1
End If
Row_dy = Row_dy + 1: Row_mr = Row_mr + 1
Loop While Row_dy <= UBound(Arr_dy)
If s = "" Then
MsgBox "当月表中没有数据增加"
Else
MsgBox "在" & s & "中增加了数据."
End If
End Sub

sugar2016 · 发表于 2009-10-9 18:55

谢谢

雨狐 · 发表于 2009-10-9 20:56

eCA0NV6h.rar (10.6 KB, 下载次数: 20)

		自动登录	找回密码
密码			注册