[已解决]请高手帮忙，工作簿中每个工作表的指定区域找出最大值

lantong_6

请高手帮忙，用最简洁的方法（函数，VBA，都可以）找出工作簿中每个工作表的指定区域找出最大值，谢谢各位老师帮忙啊！

最佳答案

月排行榜 / 总排行榜

windimi007

2014-5-13 10:07

Test!{:26:}

1. Sub test()
   
2.     Dim ar
   
3.     Dim i As Long, j As Long
   
4.     Dim mx As Long
   
5.     Dim sr As String
   
6.     For i = 1 To Sheets.Count
   
7.         ar = Sheets(i).Cells(3, 1).CurrentRegion
   
8.         For j = 1 To UBound(ar)
   
9.             If Val(Mid(ar(j, 1), 3)) > mx Then
   
10.                 mx = Mid(ar(j, 1), 3)
    
11.                 sr = ar(j, 1)
    
12.             End If
    
13.         Next j
    
14.     Next i
    
15.     Sheet1.Cells(1, 1) = sr
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

windimi007

Test!{:26:}

1. Sub test()
   
2.     Dim ar
   
3.     Dim i As Long, j As Long
   
4.     Dim mx As Long
   
5.     Dim sr As String
   
6.     For i = 1 To Sheets.Count
   
7.         ar = Sheets(i).Cells(3, 1).CurrentRegion
   
8.         For j = 1 To UBound(ar)
   
9.             If Val(Mid(ar(j, 1), 3)) > mx Then
   
10.                 mx = Mid(ar(j, 1), 3)
    
11.                 sr = ar(j, 1)
    
12.             End If
    
13.         Next j
    
14.     Next i
    
15.     Sheet1.Cells(1, 1) = sr
    
16. End Sub
    

复制代码

FnG

建议你把所有表的A列设格式为"AA"0，然后所有A列数据的AA替换为空，直接用数值，这样你可以用数组公式得到你要的结果：

1. =MAX(Sheet1:Sheet3!A3:A1000)

复制代码

FnG

附件.rar (7.52 KB, 下载次数: 5)

2014-5-13 10:33 上传

点击文件名下载附件

lantong_6

windimi007 发表于 2014-5-13 10:07
Test!

这个方法好，不过有个小问题，如果我把Sheet1，Sheet2，Sheet3.......改汉字名，只选Sheet1，Sheet2，Sheet3，Sheet4，Sheet7，该怎么办呢？（不计算5和6）

lantong_6

lantong_6 发表于 2014-5-13 10:47
这个方法好，不过有个小问题，如果我把Sheet1，Sheet2，Sheet3.......改汉字名，只选Sheet1，Sheet2，She ...

老师帮我做个附件好吗？