[已解决]请教如何在多个工作表中求同一单元格最大值

飞燕草

请教各位老师，如何在多个工作表中求同一单元格最大值并提取所在工作表的名称？
工作表名称不规律，表样在附件，谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-16 15:40

1. Sub tt()
   
2.     On Error Resume Next
   
3.     Dim wb As Workbook, sh As Worksheet
   
4.     Workbooks.Open ThisWorkbook.Path & "\明细表.xlsx"
   
5.     Set wb = Workbooks("明细表.xlsx")
   
6.     For Each sh In wb.Worksheets
   
7.         If imax < sh.[a4] Then imax = sh.[a4]: xstr = sh.Name
   
8.     Next
   
9.     wb.Close False
   
10.     [b4] = xstr: [b5] = imax
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     On Error Resume Next
   
3.     Dim wb As Workbook, sh As Worksheet
   
4.     Workbooks.Open ThisWorkbook.Path & "\明细表.xlsx"
   
5.     Set wb = Workbooks("明细表.xlsx")
   
6.     For Each sh In wb.Worksheets
   
7.         If imax < sh.[a4] Then imax = sh.[a4]: xstr = sh.Name
   
8.     Next
   
9.     wb.Close False
   
10.     [b4] = xstr: [b5] = imax
    
11. End Sub
    

复制代码

飞燕草

grf1973 发表于 2016-3-16 15:40

好强大！谢谢！能否再次请教下，如果需要求得前五个最大值及工作表名称，怎么修改代码呢？谢谢~

grf1973

把所有工作表名和数据放在一个数组里，全部显示后排序，取前五。

grf1973

1. Sub tt()
   
2.     On Error Resume Next
   
3.     Dim wb As Workbook, sh As Worksheet
   
4.     Workbooks.Open ThisWorkbook.Path & "\明细表.xlsx"
   
5.     Set wb = Workbooks("明细表.xlsx")
   
6.     ReDim arr(1 To wb.Worksheets.Count, 1 To 2)
   
7.     For Each sh In wb.Worksheets
   
8.         n = n + 1
   
9.         arr(n, 1) = sh.Name
   
10.         arr(n, 2) = sh.[a4]
    
11.     Next
    
12.     wb.Close False
    
13.     [a5].Resize(n, 2) = arr
    
14.     [a5].Resize(n, 2).Sort key1:=[b5], order1:=xlDescending
    
15. End Sub
    

复制代码

飞燕草

grf1973 发表于 2016-3-16 16:21
把所有工作表名和数据放在一个数组里，全部显示后排序，取前五。

以附件为例，具体该怎么弄呀？刚刚接触，不太会~谢谢

飞燕草

看到了，谢谢帮助~~ 得好好学习一下