[已解决]请解释一段代码

ccq000000

代码如下:
Private Sub ComboBox1_GotFocus()
   Dim arr, arr1()
   Dim k%, x%
   arr = Range("a1:a10")
   For x = 1 To UBound(arr)
      If arr(x, 1) > 10 Then
         k = k + 1
         ReDim Preserve arr1(1 To k, 1 To 1)
(此处出错,如定义arr1是一维的redim preserve arr1(1 to k)就能正常运行)
         arr1(k, 1) = arr(x, 1)
      End If
   Next x
   ComboBox1.List = arr1
End Sub
这是为什么?

最佳答案

月排行榜 / 总排行榜

fffox

2014-3-4 12:15

redim只能改变动态数组的末维。
ReDim Preserve arr1(1 To 1, 1 To k)
输出时，把arr1数组转置一下即可

跳转到最佳答案楼层

qcw811206

ReDim Preserve arr1
只能重新定义后面的维数

qcw811206

可以用转置函数进行处理 Application.Transpose

fffox

redim只能改变动态数组的末维。
ReDim Preserve arr1(1 To 1, 1 To k)
输出时，把arr1数组转置一下即可