对比并添加

panyancez · 发表于 2015-8-1 22:42

本帖最后由 panyancez 于 2015-8-1 22:47 编辑

新手上路，刚开始学习VBA，求解一个之前以来的问题：
对比sheet1和sheet2中A列数据，将sheet1中有、但sheet2中没有的数据添加到sheet2中

看见星光 · 发表于 2015-8-1 22:51

Sub dd()
Dim d As Object, arr, i&
Set d = CreateObject("scripting.dictionary")
arr = Sheets(1).[a1].CurrentRegion
For i = 1 To UBound(arr)
d(arr(i, 1)) = ""
Next
arr = Sheets(2).[a1].CurrentRegion
For i = 1 To UBound(arr)
If d.exists(arr(i, 1)) Then d.Remove (arr(i, 1))
Next
With Sheets(2)
.[a1].Offset(UBound(arr), 0).Resize(d.Count, 1) = Application.Transpose(d.keys)
End With
End Sub

复制代码

看见星光 · 发表于 2015-8-1 22:53

附件参考

300.zip (276.98 KB, 下载次数: 41)

panyancez · 发表于 2015-8-1 23:07

{:soso_e101:}看来VBA之路还是任重道远。虽然是新手，但也看了一个多星期的书，逛了快10天的论坛了，好多命令还是看不明白。
谢谢大侠，先对着F1和教程仔细研究下。{:soso_e130:}

看见星光 · 发表于 2015-8-1 23:12

panyancez 发表于 2015-8-1 23:07
看来VBA之路还是任重道远。虽然是新手，但也看了一个多星期的书，逛了快10天的论坛了，好多命 ...

看下蓝版的这个帖子：
http://club.excelhome.net/thread-868892-1-1.html

panyancez · 发表于 2015-8-1 23:22

看见星光发表于 2015-8-1 23:12
看下蓝版的这个帖子：
http://club.excelhome.net/thread-868892-1-1.html

好的，再次谢过大侠

panyancez · 发表于 2015-8-2 10:55

本帖最后由 panyancez 于 2015-8-3 13:59 编辑

持续学习中

panyancez · 发表于 2015-8-3 13:52

看见星光发表于 2015-8-1 23:12
看下蓝版的这个帖子：
http://club.excelhome.net/thread-868892-1-1.html

在星光大侠的指导下，通过连续3个小时的奋战，终于看明白了，很是开心{:soso_e113:}
。做个注释笔记留存下

（再请教下，关于最后那个with命令，是不是去掉，直接用以下这行代码代替：Sheets(2).[a1].Offset(UBound(arr), 0).Resize(d.Count, 1) =Application.Transpose(d.keys)
估计星光版主是在一个比较复杂的SUB基础上修改来的，所以没有去掉with?）

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

[求助] 对比并添加

最新热点 /1