数组问题，去掉已建数组中多余的行

dyp213 · 发表于 2017-5-12 14:31

'学习求助,刚接触到数组，很多地方不明白，请大家帮助。
’代码
Sub 形成新的数据()
Dim arr
arr = Sheet23.Range("A1").CurrentRegion.Value
ReDim arr1(1 To UBound(arr), 1 To 8)
x = 1
For i = 1 To UBound(arr)
   If arr(i, 2) <> "" Then
   For k = 1 To 8
   arr1(x, k) = arr(i, k)
   Next
   x = x + 1
End If
Next
End Sub
要求：此表的结构不可以改变，在不建新的表的情况下，清除数组arr1中97及以下的空白行清除。也就是以数组第2列有数据行为下标界，清除多余的行。有必要可新建数组。
谢谢！

cflood · 发表于 2017-5-12 14:40

arr=range("A3:H" & range("B65536").end(xlup).row)
给数组赋值的时候就不要这些数据不行吗？

dyp213 · 发表于 2017-5-13 00:14

cflood 发表于 2017-5-12 14:40
arr=range("A3:H" & range("B65536").end(xlup).row)
给数组赋值的时候就不要这些数据不行吗？

数组无数据的行，能删掉吗

qingc0221 · 发表于 2017-5-13 00:17

没有必要吧,数组写入工作表时,只写有数据的行就行了

dyp213 · 发表于 2017-5-13 00:23

我的第一列有数据有一千多行，第二列为其它的数据，第二列有数据的只有几十行，组成数组后，数组太长，我想以第二列的下标组成新的数组，这样数组的行就缩小了。有利于别的数组在这个数组里查询，节约时间。现在花时近七秒，如果把这个数组长度减小，只用200毫秒足矣。

dyp213 · 发表于 2017-5-13 00:25

第二列是不连续的

dyp213 · 发表于 2017-5-13 00:27

qingc0221 发表于 2017-5-13 00:17
没有必要吧,数组写入工作表时,只写有数据的行就行了

不写入工作表中，只在内存中计算

qingc0221 · 发表于 2017-5-13 00:30

arr按第二列来确定行数就行了

dyp213 · 发表于 2017-5-13 00:32

我试想过，可以将“就餐人数”中的第二列排序，按您的办法，建立数组，可是这样得改变表的结构。我想在数组中进行改造，建立新的数组，去掉数组中没有数据的行，减少数组的长度，不知道行不行。

qingc0221 · 发表于 2017-5-13 00:33

dim lastrow as long
lastrow=sheet23.cells(sheet23.rows.count,2).end(xlup).row
arr=sheet23.range("A1:H" & lastrow)

		自动登录	找回密码
密码			免费注册