ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: nhygm

[求助] 怎么用SQL的方法将两个工作表的不同记录导到新工作表中?

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2013-1-30 20:21 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
yqdaqinqin 发表于 2013-1-30 18:19
http://club.excelhome.net/thread-556345-2-1.html  你看看20楼的附件,以前讨论过这个问题,select没有 ...

在表a中检索在表b中有的记录
SELECT * FROM a
WHERE EXISTS
(SELECT 1 FROM b WHERE id=a.id AND name=a.name AND ...)
在表a中检索在表b中没有的记录
SELECT * FROM a
WHERE NOT EXISTS
(SELECT 1 FROM b WHERE id=a.id AND name=a.name AND ...)

TA的精华主题

TA的得分主题

发表于 2013-1-30 20:25 | 显示全部楼层
yqdaqinqin 发表于 2013-1-29 11:30
这个代码会打乱a列顺序!

只有先能理解数据的无序性,你才能理解数据库,此时你才会使用SQL

TA的精华主题

TA的得分主题

发表于 2013-1-30 20:53 | 显示全部楼层
yqdaqinqin 发表于 2013-1-30 18:19
http://club.excelhome.net/thread-556345-2-1.html  你看看20楼的附件,以前讨论过这个问题,select没有 ...

需要我做一个吗?

TA的精华主题

TA的得分主题

发表于 2013-1-30 20:56 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
做3个表,1:两个表都有的数据;2:表一有,表二没有的数据;3:表二有,表一没有的数据.  可以吗?

TA的精华主题

TA的得分主题

发表于 2013-1-30 20:57 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-1-30 21:07 | 显示全部楼层
lzqmsy 发表于 2013-1-30 20:53
需要我做一个吗?

我刚发了个帖子,一样的问题,你看看这里就可以!http://club.excelhome.net/forum. ... p;extra=#pid6695888

TA的精华主题

TA的得分主题

发表于 2013-1-30 21:37 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-1-30 21:39 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
nhygm 发表于 2013-1-29 11:25
感谢各位帮忙,怪我没说明白,表1和表2的记录 都以A列为准,所以用a.f1=b.f1 就可以了。
我在问一个问题, ...

复制粘贴到一个工作簿里

TA的精华主题

TA的得分主题

发表于 2013-1-31 09:38 | 显示全部楼层
zhaogang1960 发表于 2013-1-30 12:17
请模拟效果

帮我看看,用你滴方法~谢谢

Book1.zip

17.07 KB, 下载次数: 21

TA的精华主题

TA的得分主题

发表于 2013-1-31 16:52 | 显示全部楼层
本帖最后由 zhaogang1960 于 2013-1-31 16:53 编辑
ddhhyy16 发表于 2013-1-31 09:38
帮我看看,用你滴方法~谢谢


你这个题目好难啊,费了一个多小时:
  1. Sub Macro1()
  2.     Dim d As Object, ds As Object, sh As Worksheet, a, arr, brr, i&, j&, l&, s$, t
  3.     Set d = CreateObject("scripting.dictionary")
  4.     arr = Sheets("原始数据").Range("A1").CurrentRegion
  5.     For i = 2 To UBound(arr)
  6.         If Len(arr(i, 2)) Then
  7.             If Not d.Exists(arr(i, 2)) Then Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
  8.             d(arr(i, 2))(arr(i, 4)) = d(arr(i, 2))(arr(i, 4)) & "," & i
  9.         End If
  10.     Next
  11.     k = d.Keys
  12.     On Error Resume Next
  13.     For l = 0 To d.Count - 1
  14.         Set sh = Sheets(k(l))
  15.         If Not sh Is Nothing Then
  16.             Set ds = d(k(l))
  17.             With sh.Range("A3").CurrentRegion
  18.                 .Offset(1, 3).ClearContents
  19.                 brr = .Value
  20.                 For i = 2 To UBound(brr)
  21.                     If Len(brr(i, 1)) Then s = brr(i, 1) Else s = brr(i, 3)
  22.                     t = ds(s)
  23.                     If t <> "" Then
  24.                         a = Split(t, ",")
  25.                         For j = 1 To UBound(a)
  26.                             brr(i, arr(a(j), 1) + 3) = arr(a(j), 7)
  27.                         Next
  28.                     End If
  29.                 Next
  30.                 .Value = brr
  31.             End With
  32.         End If
  33.     Next
  34. End Sub

复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-22 17:12 , Processed in 0.033633 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表