怎么在一个EXCEL表里把每个Sheet的名字和金额那栏的最大值汇总到汇总表里

w64309520

怎么在一个EXCEL表里把每个Sheet的名字和金额那栏的最大值汇总到汇总表里，求大神帮帮我吧！！有很多的Sheet表，我只是弄了一点进去。以后没自动加一个Sheet，汇总表里会自动显示出名字和这个人的合计工资。

w64309520

这样的EXCEL。

3190496160

Sub 汇总()
Dim arr()
ReDim arr(1 To Sheets.Count, 1 To 3)
For Each sh In Sheets
    If sh.Name <> "汇总表" Then
         r = sh.Cells(Rows.Count, 6).End(xlUp).Row
         zd = Application.Max(sh.Range("f3:f" & r))
         n = n + 1
         arr(n, 1) = n
         arr(n, 2) = sh.Name
         arr(n, 3) = zd
    End If
Next sh
With Sheets("汇总表")
    .[a1].CurrentRegion.Offset(2).Borders.LineStyle = 0
    .[a1].CurrentRegion.Offset(2) = Empty
    .[a3].Resize(n, 3) = arr
    .[a3].Resize(n, 4).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

2023年 6月缝纫车间计件工资7.15.rar (45.08 KB, 下载次数: 8)

2023-7-18 13:54 上传

点击文件名下载附件

w64309520

3190496160 发表于 2023-7-18 13:55

大佬 为什么王的WPS提示不能用      提示说该宏在此工作簿中不可用，或者所有的宏都被禁用

3190496160

w64309520 发表于 2023-7-19 10:52
大佬 为什么王的WPS提示不能用      提示说该宏在此工作簿中不可用，或者所有的宏都被禁用

那你就启用宏啊

w64309520

WPS启用这个，他居然告诉我要花钱，1000多一年