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

醉舞冰点

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

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语句有处理办法吗？

ykcbf1100

借题练习，排重汇总，VBA

这个用字典简单

ykcbf1100

1. Sub ykcbf()   '//2025.7.16
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set Sh = ThisWorkbook.Sheets("汇总表")
   
5.     For Each sht In Sheets
   
6.         If sht.Name = Sh.Name Then GoTo 100
   
7.         arr = sht.UsedRange.Value
   
8.         For i = 2 To UBound(arr)
   
9.             s = Trim(CStr(arr(i, 1)))
   
10.             If Len(s) Then
    
11.                 d(s) = arr(i, 2)
    
12.             End If
    
13.         Next
    
14. 100:
    
15.     Next
    
16.     With Sh
    
17.         .Columns(1).NumberFormatLocal = "@"
    
18.         .[a2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
19.     End With
    
20.     Set d = Nothing
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "OK！"
    
23. End Sub
    
24. 
    
25. 
    

复制代码

lunuoya

6年前的帖子，留个脚印稍后学习