同一工作簿中相同结构的多个工作表汇总中一个工作表

cj20210430

1，同一工作簿中相同结构的多个工作表内容汇总到一个工作表中

2，汇总后完全相同的内容的行 删除（删除重复行）
3，现实中工作表 比较多，50-100个左右

chxw68

1. Sub test()
   
2.     Dim r&, i&, m&
   
3.     Dim arr, brr(1 To 50000, 1 To 8)
   
4.     Dim wb As Workbook
   
5.     Dim ws As Worksheet
   
6.     Dim mypath$, myname$
   
7.     Dim d As Object
   
8.     Application.ScreenUpdating = False
   
9.     Application.DisplayAlerts = False
   
10.     Set d = CreateObject("scripting.dictionary")
    
11.     mypath = ThisWorkbook.Path & ""
    
12.     myname = Dir(mypath & "*.xlsx")
    
13.     m = 0
    
14.     Do While myname <> ""
    
15.         If myname <> ThisWorkbook.Name Then
    
16.             Set wb = GetObject(mypath & myname)
    
17.             With wb
    
18.                 With .Worksheets(1)
    
19.                     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
20.                     arr = .Range("a2:h" & r)
    
21.                     For i = 1 To UBound(arr)
    
22.                         xm = ""
    
23.                         For j = 1 To UBound(arr, 2)
    
24.                             xm = xm & "+" & arr(i, j)
    
25.                         Next
    
26.                         If Not d.exists(xm) Then
    
27.                             m = m + 1
    
28.                             For j = 1 To UBound(arr, 2)
    
29.                                 brr(m, j) = arr(i, j)
    
30.                             Next
    
31.                             d(xm) = Empty
    
32.                         End If
    
33.                     Next
    
34.                 End With
    
35.                 .Close False
    
36.             End With
    
37.         End If
    
38.         myname = Dir
    
39.     Loop
    
40.     With ThisWorkbook.Worksheets("sheet1")
    
41.         .UsedRange.Offset(1, 0).Clear
    
42.         If m > 0 Then
    
43.             .Range("a2").Resize(m, UBound(brr, 2)) = brr
    
44.         End If
    
45.     End With
    
46. End Sub
    

复制代码

chxw68

详见附件。

gwjkkkkk

请参考。。。

sdytsxd991122

donghui2363

练习练习：
import pandas as pd
import os

current_dir = os.path.dirname(os.path.abspath(__file__))
files = os.listdir(current_dir)
df_all = []
for file in files:
    if file.split(".")[0] != "汇总":
        excel_name = os.path.join(current_dir,file)
        df = pd.read_excel(excel_name)
        df_all.append(df)
data = pd.concat(df_all)
data.drop_duplicates()
data.to_excel("汇总.xlsx",index=False)

feilanga

cj20210430

chxw68 发表于 2023-7-22 11:16
详见附件。

老师 ，附件里面没看到有什么呀？

chxw68

cj20210430 发表于 2023-7-22 14:24
老师 ，附件里面没看到有什么呀？

代码在汇总.xlsm文件中。你要看到什么呢？

cj20210430

非常感谢各位的帮助！