合 并多表为一 表的求助

guipingl

请老师帮我写个合并工作表的VBA，谢谢；

1、合并表后表的表一健合并到合并表里，这里列了只4个表，但远不止4个表；
2、如果可以的话合并表里上年结存和本月合计，本年累计不要合并过去，只合并表内其他内容。
3、合并表里第O列，P列数据来自各分表

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.23
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("合并表")
   
4.     ReDim brr(1 To 10000, 1 To 16)
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> sh.Name And InStr(sht.Name, "供应商") = 0 And sht.Name <> "模板" And sht.Name <> "现存量" Then
   
7.             With sht
   
8.                 r = .Cells(Rows.Count, 1).End(3).Row
   
9.                 arr = .[a5].Resize(r - 4, 14)
   
10.                 For i = 4 To UBound(arr)
    
11.                     If arr(i, 1) <> Empty Then
    
12.                         m = m + 1
    
13.                         For j = 1 To UBound(arr, 2)
    
14.                             brr(m, j) = arr(i, j)
    
15.                         Next
    
16.                         brr(m, 15) = .[h4]
    
17.                         brr(m, 16) = .[e4]
    
18.                     End If
    
19.                 Next
    
20.             End With
    
21.         End If
    
22.     Next
    
23.     With sh
    
24.         .[a7:p10000] = ""
    
25.         .[a7].Resize(m, 16) = brr
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

longwin

请测试。。。。。。

guipingl

ykcbf1100 发表于 2024-5-23 20:06
参与一下。。。

感谢，感谢！