Arrays 将满足条件的数组值复制到另一列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

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

---

出于某种原因，这是一个解决方案，它以前不起作用，但现在起作用了：） ，谢谢你的苦艾酒

'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

---

这样行吗？首先构建阵列，然后：

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

arrPos=1
对于x=0到myArray.length
如果myArray（x，0）<70，则
单元格（arrPos，1）=myArray（x，0）
arrPos=arrPos+1
如果结束
下一个x
这是我公司使用的一个Excel归档文件，他们更新它并添加更多的值，但是它们总是在这些新的值之后再加上一些指令，我希望代码能够检测出新的值，然后在他们总是离开的空白处停止，这就是为什么它会这样，我使用的另一个故障保护是cap变量，我可以随时更改它，使其循环或多或少的值。嗯，这很奇怪，我以前尝试过类似的方法，但它在所有复制的单元格中都是正确的，但我不知道为什么以前没有，如果有人感兴趣，这里是最后一件事：
对于i=0到cap数组_Qorep（i，0）=Range（“A”&i+1）If Hoja1.Cells（i+1，1）。Value=Empty然后退出If array_Qorep（i，0）>Cells（3，4），然后Cells（i+1，3）=array_Qorep（i，0）End If Next
无法真正看到您对Cells（3，4）所做的事情，但很高兴它有帮助：）这就是我使用随机数（而不是仅使用70）添加条件的地方，干杯