求助：用VBA比较两列数据

baichunlei · 发表于 2013-4-25 12:53

两列对比并加入不同.rar (3.14 KB, 下载次数: 25) 问题见附件。
小弟不才，请高人帮忙，万分感谢！！！

dufu021 · 发表于 2013-4-25 13:36

你用公式的话，不是已经可以实现你的想法了吗？

baichunlei · 发表于 2013-4-25 14:03

我的两张表都是复制后处理过的。还须进一步处理。变成要求的那样。
漏说一个地方：插入的数据（在A列），其值（在B列）变为零。

justinhuang · 发表于 2013-4-26 14:09

本帖最后由 justinhuang 于 2013-4-26 14:11 编辑

Dim n_sr1 As Long, n_sr2 As Long
Dim i As Long, n As Long
n_sr1 = Sheet1.UsedRange.Rows.Count
n_sr2 = Sheet2.UsedRange.Rows.Count
If n_sr1 > n_sr2 Then
n = n_sr1
Else
n = n_sr2
End If
For i = 5 To n
   If Sheet1.Cells(i, 1).Value <> Sheet2.Cells(i, 1).Value And Sheet2.Cells(i, 1).Value <> "" Then
      Sheet1.Range("A" & i & ":C" & i).Insert shift:=xlDown
      Sheet1.Range("A" & i & ":B" & i).Value = Sheet2.Range("A" & i & ":B" & i).Value
   End If
   Sheet1.Cells(i, 3).Value = Sheet1.Cells(i, 2).Value - Sheet2.Cells(i, 2).Value
Next

baichunlei · 发表于 2013-4-26 14:27

非常感谢！！！正是我所需要的！！！

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