数组动态扩充时出现类型不符

chensiyou

    各位大侠：              小生在学习数组的动态扩充时，用redim preserve时出现类型不符，不知是什么原因，详见附件！！！

lu_zhao_long

三处错误：
1. arr(12, k) = arr(i, 12)：    arr(13, k) = arr(i, 13)
应该为：
arr1(12, k) = arr(i, 12)：    arr1(13, k) = arr(i, 13)

2. 开始应该声明 arr1 为数组：
Dim arr, arr1()

3. 作为行号的变量，最好是声明成 LONG 型，否则数据行数多的时候会出错：
    Dim i As Long, k As Long

4. 必须指定数据源表在 Sheet3。不信的话，你可以将 Test 工作表选中，然后再去运行这段代码试试看就知道了：
    maxrow = Worksheets("Sheet3").Cells(Rows.Count, 13).End(xlUp).Row
    arr = Worksheets("Sheet3").Range("a1:Q" & maxrow)

chensiyou

lu_zhao_long 发表于 2013-4-20 07:57
三处错误：
1. arr(12, k) = arr(i, 12)：    arr(13, k) = arr(i, 13)
应该为：

学习了，谢谢！