两组数据对比代码{{{请高手帮忙修改！}}}

excel010

老师，如果两列数据所在位置不相同怎么对比？
比如 数据A   
单号 1 名称 甲 金额 66   所在单元格位置是 B3
         数据B   
单号 1 名称 甲 金额 66   所在单元格位置是 G8

在这样的条件下如何进行对比？？？

对比数据56.rar (15.02 KB, 下载次数: 19)

2012-1-17 16:08 上传

点击文件名下载附件

sunjing-zxl

1. Sub aa()
   
2.     Dim arr1, arr2, arr
   
3.     Dim n As Long, i As Long, j As Long
   
4.     n = [B65536].End(xlUp).Row
   
5.     n = IIf([G65536].End(xlUp).Row > n, [G65536].End(xlUp).Row, n)
   
6.     arr1 = Range("B3:D" & n)
   
7.     arr2 = Range("G3:I" & n)
   
8.     ReDim arr(1 To UBound(arr1), 1 To 7)
   
9.     n = 0
   
10.     For i = 1 To UBound(arr1)
    
11.         If arr1(i, 3) <> arr2(i, 3) Then
    
12.             n = n + 1
    
13.             arr(n, 7) = arr1(i, 3) - arr2(i, 3)
    
14.             For j = 1 To 3
    
15.             arr(n, j) = arr1(i, j)
    
16.             arr(n, 3 + j) = arr2(i, j)
    
17.             Next j
    
18.         End If
    
19.     Next i
    
20.     Range("L3:R" & [R65536].End(xlUp).Row).ClearContents
    
21.     Range("L3").Resize(UBound(arr), 7) = arr
    
22. End Sub

复制代码

sunjing-zxl

附件： 对比数据55-sunjing.rar (17.74 KB, 下载次数: 48)

2012-1-17 15:15 上传

点击文件名下载附件

excel010

sunjing-zxl 发表于 2012-1-17 15:15
附件：

老师，如果两列数据所在位置不相同怎么对比？
比如 数据A   
单号 1 名称 甲 金额 66   所在单元格位置是 B3
         数据B   
单号 1 名称 甲 金额 66   所在单元格位置是 G8

在这样的条件下如何进行对比？？？