假如数组为 arr 最大值为:Application.Max(arr)
Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,***数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的
Sub dd() Dim arr arr = Array(1, 2, 3, 4, 5, 6) [A2] = Application.WorksheetFunction.Max(arr) End Sub 用工作表函数MAX就可以了.
参考下面的代码,和你的问题有些像:Sub Test() Dim Arr(1 To 9) As Integer '定义一个下标为1,上标为9的整型数组 Dim Brr(9) As String ''定义一个下标为0,上标为9的整
Private Sub Form_Load()Dim arr(18) As IntegerDim num(3) As IntegerDim i As Integer, j As Integer, k As IntegerDim dict As New CollectionFor i = 0 To 18 arr(i) = i + 1
无规律的数据,可以用array()函数:Dim st st = Array(5, 23, 24, 26, 30, 5, 31, 24, 26, 28) 下标从0开始,需要其他的下标,可以先用array赋值另一个数组,然后再用循环赋值给 st
'向VBA数组中写入数据'1、按编号(标)写入和读取 Sub t1() '写入一维数组 Dim x As Integer Dim arr(1 To 10) arr(2) = 190 arr(10) = 5End Sub Sub t2() '向二维数组写
excel vba数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,***数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方
白做?没人会.
用cells(row,column)比用range灵活多了,a(i) = Range("a" & i) 可改成 a(i) = cells(1,5+i) 'E列为第5列