[已解决]求vba

yuio123

Book1.rar (38.7 KB, 下载次数: 6)

2014-4-16 15:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-4-16 16:13

1. Sub tt()
   
2.     For i = 2 To 6    '2--6列
   
3.         r = Cells(65536, i).End(3).Row   '第i列的最大行
   
4.         Set Rng = Range(Cells(2, i), Cells(r, i))    '查找区域
   
5.         Cells(3, i) = Application.WorksheetFunction.Max(Rng)
   
6.         Cells(2, i) = Application.WorksheetFunction.Min(Rng)
   
7.     Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     For i = 2 To 6    '2--6列
   
3.         r = Cells(65536, i).End(3).Row   '第i列的最大行
   
4.         Set Rng = Range(Cells(2, i), Cells(r, i))    '查找区域
   
5.         Cells(3, i) = Application.WorksheetFunction.Max(Rng)
   
6.         Cells(2, i) = Application.WorksheetFunction.Min(Rng)
   
7.     Next
   
8. End Sub
   

复制代码

grf1973

其实只要公式B3=MAX(B4:B387)就行了