运行时错误1004

shaokui123 · 发表于 2018-9-14 16:51

各位高手，附件为一个比较程序
作用是b列比a列多的部分自动提取到c列
一开始好用，但后来加了一些数据
现在一运行就出错
a列删除最后几行或者b列再增加一行新数据就好用了
求高手帮忙看看什么问题

NG.rar (96.54 KB, 下载次数: 4)

iwangyi · 发表于 2018-9-14 17:02

Sub zz()
Sheets("出").Select
Dim d, a, b
Set d = CreateObject("Scripting.Dictionary")
a = Range("A1:A" & [a65536].End(3).Row)
b = Range("B1:B" & [b65536].End(3).Row)
For i = 1 To UBound(a)
      d(a(i, 1)) = ""
Next
For i = 1 To UBound(b)
      If Not d.exists(b(i, 1)) Then
         m = m + 1: Cells(m, "E") = b(i, 1)
      End If
Next
End Sub

iwangyi · 发表于 2018-9-14 17:03

附件请参考

lsdongjh · 发表于 2018-9-14 17:05

If m > 0 Then [e1].Resize(m) = b

shaokui123 · 发表于 2018-9-17 08:24

iwangyi 发表于 2018-9-14 17:02
Sub zz()
Sheets("出").Select
Dim d, a, b

感谢高手帮忙，等我测试一下
什么原因造成的呢

shaokui123 · 发表于 2018-9-17 08:25

lsdongjh 发表于 2018-9-14 17:05
If m > 0 Then [e1].Resize(m) = b

感谢高手帮忙，等我测试一下
什么原因造成的呢

lsdongjh · 发表于 2018-9-17 08:43

shaokui123 发表于 2018-9-17 08:25
感谢高手帮忙，等我测试一下
什么原因造成的呢

如果B列的数据在A列中都能找到，M为0，然后就没有然后了

“a列删除最后几行或者b列再增加一行新数据就好用了 ” 这个就非常明显了

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

[求助] 运行时错误1004