VBA 代码有数组arr(1 To 100, 1 To 10),求其中最大数的列标

发布网友发布时间：2022-11-29 21:07

共2个回答

热心网友时间：2023-10-28 22:30

arr(1)就是第一个数据，arr(2)就是第二个数据，。。。
arr(11)就是第11个数据，arr(12)就是第12个数据，。。。
依次类推。
不要感到 "新鲜" 啊，大家都是这么写的。有"不新鲜"的写法还望不吝赐教

要是你希望，1-6；11-16；21-26行的数据连续的存储在数组中，可以这样写
m = Sheets(1).UsedRange.Rows.Count
For i = 1 To m
if i mod 10 like "[1-6]" then
j=j+1
arr(j) = Sheets(1).Cells(i, 2)
next i
Next
arr就连续存储 1-6；11-16；21-26行的数据
arr(1)至arr(6) 为 1-6 行的数据
arr(7)至arr(12) 为 11-16 行的数据
arr(13)至arr(18) 为 21-26 行的数据
依次类推

热心网友时间：2023-10-28 22:31

MsgBox Application.WorksheetFunction.Average(Application.Index(arr, 3, 0))