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

我想从一个数组中复制一组值，而不是满足条件（例如值<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 

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

---

这是解决scheme，因为某些原因，它没有工作，但现在它:)，并感谢Absinthe

 '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

这是否做到了？ 先build立你的数组然后：

 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