工作表多个Sheet1汇总

努力学习168

求老师帮写代码，表格中多个Sheet1中的内容一键合并到汇总表中，Sheet1个数不确定，内容格式不定，，感谢帮忙。

ykcbf1100

附件供参考。。。

cidanji

ykcbf1100

本来按字段合并已经写好了，上传前突然发现工作表复制是连标题一起复制的，所以，又重新写了一个。

1. Sub ykcbf()  '//2024.5.27
   
2.     Set sh = ThisWorkbook.Sheets("某某车企汇总")
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> sh.Name Then
   
5.             If IsArray(sht.UsedRange) Then
   
6.                 m = m + 1
   
7.                 With sht
   
8.                     r = .Cells(Rows.Count, 1).End(3).Row
   
9.                     c = .UsedRange.Columns.Count
   
10.                     arr = .[a1].Resize(r, c)
    
11.                 End With
    
12.                 If m = 1 Then
    
13.                     sh.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.                 Else
    
15.                     r = sh.Cells(Rows.Count, 1).End(3).Row
    
16.                     sh.Cells(r + 1, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
    
17.                 End If
    
18.             End If
    
19.         End If
    
20.     Next
    
21.     MsgBox "OK！"
    
22. End Sub
    
23. 
    

复制代码

努力学习168

ykcbf1100 发表于 2024-5-27 20:14
附件供参考。。。

谢谢老师，每次刷新会重复再一次复制，帮忙修改下，感谢

努力学习168

cidanji 发表于 2024-5-27 20:17

可以用，谢谢

ykcbf1100

努力学习168 发表于 2024-5-27 20:45
谢谢老师，每次刷新会重复再一次复制，帮忙修改下，感谢

复制以前忘了主表要清空一下。

改好了。。。

jjmysjg

ykcbf1100 发表于 2024-5-27 20:18
本来按字段合并已经写好了，上传前突然发现工作表复制是连标题一起复制的，所以，又重新写了一个。

按字段合并还是很实用的

jjmysjg

ykcbf1100 发表于 2024-5-27 20:18
本来按字段合并已经写好了，上传前突然发现工作表复制是连标题一起复制的，所以，又重新写了一个。

按字段合并的代码

jjmysjg

ykcbf1100 发表于 2024-5-27 20:49
复制以前忘了主表要清空一下。

改好了。。。

按字段合并的代码，合并的数据不全呢