arrays - 将满足条件的数组值复制到另一列excel vba

Question

我想从数组中复制一组值而不是满足条件(例如值 < 70)到下一列

'Qo reported (bd) - array
For i = 0 To cap
array_Qorep(i, 0) = Range("A" & i + 1)
Cells(i + 1, 3) = array_Qorep(i, 0) 'copy array in the next column
If Cells(i + 1, 1).Value = Empty Then Exit For 'more values below, stop in blank
Next

问题是我不知道如何在数组中应用我想要的条件然后复制到下一列，有没有办法从数组中删除不满足条件的值然后复制它们？

这是解决方案，由于某种原因它以前不起作用，但现在它起作用了:)
，并感谢苦艾酒

'Qo reported (bd)

For i = 0 To cap
array_Qorep(i, 0) = Range("A" & i + 1)
If Cells(i + 1, 1).Value = Empty Then Exit For
If array_Qorep(i, 0) > Cells(3, 4) Then
    Cells(i + 1, 3) = array_Qorep(i, 0)
    End If

Next

Answer 1

这行吗？然后先构建你的数组:

arrPos  = 1

For x = 0 to myArray.length

     if myArray(x,0) < 70 then 
          cells(arrPos, 1) = myArray(x, 0)
          arrPos = arrPos + 1
     End If

next x