工作表代码汇总出错

fanion

  移植前辈老师的代码，小白一位，造成两个问题：1.删除其他月份的工作表后再汇总出现汇总的数据不完整，2.将工作表标签使用公式显示后，再汇总到总表时出现错误(复制了公式，没复制数值)。请求老师帮助解决，谢谢！
（因单元格“H1”是公式，所以这段代码有问题，不能复制值）

kuangben8

c = .Cells(3, .Columns.Count).End(xlToLeft).Column
求助清单代码出错.zip (37.43 KB, 下载次数: 7)

2024-8-12 19:03 上传

点击文件名下载附件

ykcbf1100

用数组，速度更快。

ykcbf1100

多表合并。。。

1. Sub ykcbf()   '//2024.8.12
   
2.     Application.ScreenUpdating = False
   
3.     Dim tm: tm = Timer
   
4.     Set sh = ThisWorkbook.Sheets("汇总")
   
5.     ReDim brr(1 To 10000, 1 To 5)
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             With sht
   
9.                 r = .Cells(Rows.Count, 1).End(3).Row
   
10.                 arr = .[a1].Resize(r, 4)
    
11.                 Sum = Sum + .[d2].Value
    
12.                 For i = 4 To UBound(arr)
    
13.                     If Val(arr(i, 1)) Then
    
14.                         m = m + 1
    
15.                         brr(m, 1) = .Name
    
16.                         For j = 1 To UBound(arr, 2)
    
17.                             brr(m, j + 1) = arr(i, j)
    
18.                         Next
    
19.                     End If
    
20.                 Next
    
21.             End With
    
22.         End If
    
23.     Next
    
24.     With sh
    
25.         .[a4].Resize(10000, 5).ClearContents
    
26.         .[a4].Resize(m, 5) = brr
    
27.         .[e2].Value = Sum
    
28.     End With
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
31. End Sub
    

复制代码

fanion

感谢两位老师“kuangben8”和“ykcbf1100”的无私帮助，给出的两种代码处理方式都能完美运行，非常感谢！