[已解决]用VBA求每行每列的最大数

蓝天一片云

A1:F10为数据区域.1.求出每行的最大数放入H列,2.求出每列的最大数放入第12行中

最佳答案

月排行榜 / 总排行榜

zjdh

2012-5-14 18:13

一定要舍简就烦！

1. Sub test()
   
2.      For I = 1 To 10
   
3.         For J = 1 To 6
   
4.             T = Cells(I, J)
   
5.             If M < T Then M = T
   
6.         Next
   
7.         Cells(I, 8) = M
   
8.         M = 0
   
9.     Next
   
10.     For I = 1 To 6
    
11.         For J = 1 To 10
    
12.             T = Cells(J, I)
    
13.             If M < T Then M = T
    
14.         Next
    
15.         Cells(12, I) = M
    
16.         M = 0
    
17.     Next
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

zjdh

用MAX函数不行吗？

zjdh

用MAX函数不行吗？

lzclzch

楼主这样行不行

suxiong

1. =application.max(range("A1:A10"))

复制代码

蓝天一片云

suxiong 发表于 2012-5-14 15:10

不要使用application.max(range("A1:A10"))类型

蓝天一片云

zjdh 发表于 2012-5-14 14:16
用MAX函数不行吗？

谢谢你的回答！请不要使用application.max

zjdh

一定要舍简就烦！

1. Sub test()
   
2.      For I = 1 To 10
   
3.         For J = 1 To 6
   
4.             T = Cells(I, J)
   
5.             If M < T Then M = T
   
6.         Next
   
7.         Cells(I, 8) = M
   
8.         M = 0
   
9.     Next
   
10.     For I = 1 To 6
    
11.         For J = 1 To 10
    
12.             T = Cells(J, I)
    
13.             If M < T Then M = T
    
14.         Next
    
15.         Cells(12, I) = M
    
16.         M = 0
    
17.     Next
    
18. End Sub
    

复制代码

蓝天一片云

zjdh 发表于 2012-5-14 18:13
一定要舍简就烦！

是想学习这个过程。
谢谢您提供代码！

重设密码

学习一下,