[已解决]VBA数组求最大值

numen_cel

如A例有几行数据（不清楚几行），现在用VBA把这几行数据处理到一个数组中，再从这个数组中求最大值，请赐教代码，如附件所示

最佳答案

月排行榜 / 总排行榜

yeminqiang

2015-12-8 15:25

俺也是个新手，不过还是建议直接单元格赋值到数组，不用循环，因为觉得麻烦。

VBA数组取最大值.zip (16.43 KB, 下载次数: 4)

2015-12-8 15:24 上传

点击文件名下载附件

跳转到最佳答案楼层

numen_cel

下面这个代码max_sz取到的是最后值3，不是最大值100？

Sub sz()
Dim sz(20)
Dim arr

Set s1 = ThisWorkbook.Worksheets("Sheet1")

s1_r = s1.Cells.SpecialCells(xlCellTypeLastCell).Row

'B列数据处理成数组
For x = 2 To s1_r
    sz(arr) = s1.Cells(x, 2)
Next

max_sz = Application.WorksheetFunction.Max(sz(arr))
End Sub

yeminqiang

1. Sub 数组最值()
   
2. Dim arr, brr
   
3. Dim m&, n&
   
4. m = Cells(Rows.Count, "A").End(xlUp).Row
   
5. n = Cells(Rows.Count, "B").End(xlUp).Row
   
6. arr = Range("a2:a" & m)
   
7. brr = Range("b2:b" & n)
   
8. [c1] = WorksheetFunction.Max(arr)
   
9. [d1] = WorksheetFunction.Max(brr)
   
10. End Sub
    

复制代码

VBA数组取最大值.zip (12.61 KB, 下载次数: 2)

2015-12-8 14:54 上传

点击文件名下载附件

numen_cel

yeminqiang 发表于 2015-12-8 14:54

为什么我上面的代码取不到数组中最大值？

yeminqiang

numen_cel 发表于 2015-12-8 14:57
为什么我上面的代码取不到数组中最大值？

For x = 2 To s1_r
    sz(arr) = s1.Cells(x, 2)
Next

因为sz(arr) 只有B列最后一个数字3，有且只有一个

yeminqiang

1. Sub sz()
   
2. 
   
3. Dim arr
   
4. 
   
5. Set s1 = ThisWorkbook.Worksheets("Sheet1")
   
6. 
   
7. s1_r = s1.Cells.SpecialCells(xlCellTypeLastCell).Row
   
8. ReDim arr(1 To s1_r, 1 To 1)
   
9. 
   
10. 'B列数据处理成数组
    
11. For x = 2 To s1_r
    
12. k = k + 1
    
13.     arr(k, 1) = s1.Cells(x, 2)
    
14. Next
    
15. 
    
16. max_sz = Application.WorksheetFunction.Max(arr)
    
17. MsgBox max_sz
    
18. End Sub

复制代码

改成这样试一试

yeminqiang

俺也是个新手，不过还是建议直接单元格赋值到数组，不用循环，因为觉得麻烦。

VBA数组取最大值.zip (16.43 KB, 下载次数: 4)

2015-12-8 15:24 上传

点击文件名下载附件

numen_cel

yeminqiang 发表于 2015-12-8 15:22
改成这样试一试

谢谢老师，可以了。。。我对数组一直搞不太清楚。

yeminqiang

numen_cel 发表于 2015-12-8 15:28
谢谢老师，可以了。。。我对数组一直搞不太清楚。

你原来的代码，用F8就看得一清二楚了。你可以试试看的。

numen_cel

yeminqiang 发表于 2015-12-8 15:31
你原来的代码，用F8就看得一清二楚了。你可以试试看的。

那个冒泡排序今天中午看了一下书籍，没来得及去学。。。。。谢谢！