求助：erase清空数组时出错

chensiyou

    各位大侠：
           小生跟着书上学习erase清空数组时，不知什么原因，出错，详见附件！

feng16888

arr = Sheets("清空数组").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row) '把单元格写入数组
因为你后面的空单元格太多，所以后面的数组就是空的，就没有必要清空数组了，清空会出错的

chensiyou

feng16888 发表于 2013-4-20 13:49
arr = Sheets("清空数组").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row) '把单元格写入数组
因为你 ...

谢谢feng16888,不过不知为什么怎么，只能分二列，最后一列分不出来，

dajiahaoxinku12

Sub 清空数组1()
  Dim arr, arr1(1 To 1000, 1 To 1)
  Dim x As Long, m As Long, k As Long
  arr = Sheets("清空数组").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)  '把单元格写入数组
  For x = 1 To UBound(arr) '遍历数组
  If arr(x, 1) <> "" Then   '如果数组成员不等于空，那么累加K
  k = k + 1
  arr1(k, 1) = arr(x, 1)   '把数组arr中符合条件的数值，写入新的数组arr1
  Else    '否则
  m = m + 1  '累加m,目的是为了它们分别显示m列
  Sheets("清空数组").Range("b1").Offset(0, m).Resize(k) = arr1  '把新数组arr1写入单元格b1偏移m列，K行的单元格内
  Erase arr1
  k = 0
  End If
  Next x
  Sheets("清空数组").Range("b1").Offset(0, m + 1).Resize(k) = arr1
End Sub

feng16888

arr = Sheets("清空数组").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row + 1) '把单元格写入数组
把数组多赋值一个就好了

feng16888

可以不使用index的，可以使用下列语句，也很快的，不用调用函数
   
    [a1].Resize(Maxrow, 5) = arr1

chensiyou

谢谢大家，通过学习对数组开始有点感觉。