如何将一个数组的行，写入另个一个数组

simic1989

我先将整个表数据写入数组1中，然后逐行扫描数组1，将I列小于160的行逐行复制到sheet2中。

请问我如何再创建一个数组2，然后将符合条件的行先写入数组2中。最后直接在sheet2中返回数组2的内容。

魂断蓝桥

定义两个数组就可以了。

如果数组1的条件符合 then
m=m+1
数组2(m,列）
把数组1的数据转到数组2

simic1989

魂断蓝桥 发表于 2018-9-7 15:20
定义两个数组就可以了。

如果数组1的条件符合 then

请问老师这个地方怎么定义数组2的行数呢？
我开始定义一个变体数组，但是运行到arr1(k, 9) = Application.WorksheetFunction.Index(arr, i)。提示下标越界

abc123281

Sub text()
Dim arr, brr(1 To 10000, 1 To 9)
arr = Worksheets("全体名单").UsedRange
For i = 2 To UBound(arr, 1)
  a = Val(arr(i, 9))
  If Val(arr(i, 9)) <= 160 Then
    n = n + 1
    For j = 1 To 9
      brr(n, j) = arr(i, j)
    Next
  End If
Next
Worksheets("sheet3").Range("a2").Resize(n, 9) = brr
End Sub

simic1989

abc123281 发表于 2018-9-7 15:45
Sub text()
Dim arr, brr(1 To 10000, 1 To 9)
arr = Worksheets("全体名单").UsedRange

这个是不是相当于把数组1中每个一个单元格逐个写入数组2中，而不是一整行的写入？

chaohuahch

也可以用SQL语句，一样能达到同样的目的。