vba-ReDim动态给数组扩容

Sub test()
Dim arr()Dim i, j As Integer
j = Range("A65536").End(xlUp).Row - 1

ReDim arr(1 To j)

For i = 1 To j
arr(i) = Range("D"&i+1)+Range("E"&i+1)+Range("F"&i+1)
Next
Range("I3")=Application.WorksheetFunction.Max(arr)Range("I2")=Range("C"&Application.WorksheetFunction.Match(Range("I3"),arr,0)+1)

End Sub