[已解决]请解析VBA数组这个ARRAY函数

laoau138

请解析VBA数组这个ARRAY函数

Sub smpjoin()
Dim arr, yiarr
Dim myr As Long
Dim i As Long
myr = Range("a65536").End(xlUp).Row
arr = Range("a1:d" & myr)

For i = 1 To myr
brr = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4))
Cells(i, 5) = Join(brr, "-")
Next
End Sub

这个array有什么用, Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4))............这一句什么意思

最佳答案

月排行榜 / 总排行榜

chart888

2017-6-13 14:37

把arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4)四个数值 重新组成一个一维数组Array

跳转到最佳答案楼层

chart888

把arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4)四个数值 重新组成一个一维数组Array

laoau138

chart888 发表于 2017-6-13 14:37
把arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4)四个数值 重新组成一个一维数组Array

arr是二维数组，用array组成一维数组，能不能？
如果调用这个？

chart888

laoau138 发表于 2017-6-13 14:59
arr是二维数组，用array组成一维数组，能不能？
如果调用这个？

arr = Range("a1:d" & myr) 这个数组是将所有源数据放入一个二维数组里面For i = 1 To myr
Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4))
→通过循环把Arr数组里面每一行放入分别放Array 这个一位数组里面