同一工作簿下多个表格数据汇总到一个表，且删除重复身份证号码

醉舞冰点

很实用，谢谢您，辛苦了。再问一下，可以自由增加表后自动汇总不

iwangyi

醉舞冰点 发表于 2019-12-9 09:04
很实用，谢谢您，辛苦了。再问一下，可以自由增加表后自动汇总不

可以，通用代码

OKJSJSF

iwangyi 发表于 2019-12-8 17:02
Sub C()
Set D = CreateObject("SCRIPTING.DICTIONARY")
For Each SH In Sheets

请问，在多表合并操作中，arr = SH.Range("A1").CurrentRegion这种多个二维数组（当然，列标题是相同的）有没有直接合并为一个数组的办法？我目前正在练一个合并命令，每天一个表，每个表去重前约13000行，去重后约8000行，发现在合并时，每个表都会花上约5秒时间，速度上不去。

OKJSJSF

iwangyi 发表于 2019-12-8 16:42
Sub CC()
Set D = CreateObject("SCRIPTING.DICTIONARY")
Set cn = CreateObject("ADODB.CONNECTION")

我在练习用sql连接技术合并多簿多表时，发现，数据表标题行上方不能有其它内容，既使有空行隔开也不行，全空则可以。不知是否就是这样的？请问如果标题行上方有其它内容，sql语句有处理办法吗？