复制不重复数据到另一个表中

liuzhenhua · 发表于 2023-7-11 15:22

请帮忙做一个程序

将BB表中A列与AA表中A列编码不重复的数据复制到表AA的表尾
谢谢

Book.rar (7.91 KB, 下载次数: 19)

扑腾 · 发表于 2023-7-11 15:34

2005年注册，至今仍然

LIUZHU · 发表于 2023-7-11 15:38

扑腾发表于 2023-7-11 15:34
2005年注册，至今仍然

是不是说，2005年注册，怎么说，也该大湿了？

limonet · 发表于 2023-7-11 15:48

主要是not in

扑腾 · 发表于 2023-7-11 15:49

LIUZHU 发表于 2023-7-11 15:38
是不是说，2005年注册，怎么说，也该大湿了？

大师倒不至于，只是很基本的复制粘贴应该自己能完成吧？

512008404 · 发表于 2023-7-11 15:51

参与一下！

limonet · 发表于 2023-7-11 15:57

Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("adodb.connection")
Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
StrSQL = "select * from [BB$] where 资产编码 not in(select 资产编码 from [AA$A2:D])"
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).CopyFromRecordset Cn.Execute(StrSQL)
End Sub

LIUZHU · 发表于 2023-7-11 16:00

limonet 发表于 2023-7-11 15:48
主要是not in

WPS不支持ADO了

cyq4896 · 发表于 2023-7-11 16:02

请试一试吧

limonet · 发表于 2023-7-11 16:10

LIUZHU 发表于 2023-7-11 16:00
WPS不支持ADO了

,你怎么知道他是用WPS？

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

[求助] 复制不重复数据到另一个表中