526互联

vba-redim

vba-ReDim动态给数组扩容

Sub test() Dim arr()Dim i, j As Integerj = Range("A65536").End(xlUp).Row - 1ReDim arr(1 To j)For i = 1 To jarr(i) = Range("D"&i+1)+Range("E"&i+1)+Rang ......
数组 vba-ReDim 动态 ReDim vba
共1篇  :1/1页 首页上一页1下一页尾页