求助：如何让指定单元格返回某列中第N个给定条件的值

管正中

各位大侠辛苦了，希望大侠们指点一下，如何让指定的单元格返回某列中第N个给定条件的值，比如说上传的附件中，让E3返回B列中第一个小于等于12的值，让E4返回B列中第二个小于等于12的值。

对月亮发誓

Sub 选择小于12的数()
Dim x, arr(1 To 100) As Integer, y
y = 1
For x = 3 To 20
  If Range("b" & x).Value <= 12 Then
     arr(y) = Range("b" & x).Value
     y = y + 1
      End If
Next x
Range("f3:f8") = Application.Transpose(arr)


End Sub
试试这个，范围有点小，是这个意思吧

管正中

对月亮发誓 发表于 2014-6-3 23:18
Sub 选择小于12的数()
Dim x, arr(1 To 100) As Integer, y
y = 1

谢谢大师，很好用，就是这个意思，衷心感谢。还有请指教，怎样实现让给定的条件值为某一个单元格的值呢
就是 将式：If Range("b" & x).Value <= 12 Then中的12设定为某一个单元格

虎震江河

Sub 选择小于12的数()
Dim x, arr(1 To 100) As Integer, y
y = 1
For x = 3 To 32
  If Range("b" & x).Value <= Range("F1") Then
     arr(y) = Range("b" & x).Value
     y = y + 1
      End If
Next x
Range("f3:f25") = Application.Transpose(arr)
End Sub

管正中

虎震江河 发表于 2014-6-4 14:21
Sub 选择小于12的数()
Dim x, arr(1 To 100) As Integer, y
y = 1

谢谢赐教，十分感谢。还有一个问题，望君百忙之中帮忙，就是让不满足上述条件的单元格为空格。当If Range("b" & x).Value ＞ Range("F1") Then，返回空白单元格。
     

管正中

管正中 发表于 2014-6-4 17:03
谢谢赐教，十分感谢。还有一个问题，望君百忙之中帮忙，就是让不满足上述条件的单元格为空格。当If Range ...

大师哪去啦？帮帮忙啊

对月亮发誓

管正中 发表于 2014-6-5 15:10
大师哪去啦？帮帮忙啊

你是不是想只显示小于12的数，往下的0不显示啊？？
这样改
Sub 选择小于12的数()
Dim x, arr(1 To 100) As Integer, y
y = 1
For x = 3 To Range("b65535").End(xlUp).Row + 1

  If Range("b" & x).Value <= Range("f1") Then
     arr(y) = Range("b" & x).Value
     y = y + 1
      End If
Next x
Range("f3:f" & y) = Application.Transpose(arr)


End Sub

管正中

对月亮发誓 发表于 2014-6-5 21:02
你是不是想只显示小于12的数，往下的0不显示啊？？
这样改
Sub 选择小于12的数()

运行时出现错误：下标越界   【路基、路面随机取样自动计算】.zip (57.47 KB, 下载次数: 17)

2014-6-5 22:14 上传

点击文件名下载附件

  请大师指导一下

对月亮发誓

管正中 发表于 2014-6-5 21:26
运行时出现错误：下标越界  
  请大师指导一下

Sub 选择小于12的数()
Dim x, arr(1 To 30) As Integer, y
y = 1
For x = 11 To Range("x65535").End(xlUp).Row

  If Range("x" & x).Value <= Range("j8") Then
     arr(y) = Range("x" & x).Value
     y = y + 1
      End If
Next x
Range("b11:b" & y + 9) = Application.Transpose(arr)


End Sub


这样改试试，你那么复杂的公式都写的出来，这个应该不成问题啊，？？

管正中

对月亮发誓 发表于 2014-6-6 22:02
Sub 选择小于12的数()
Dim x, arr(1 To 30) As Integer, y
y = 1

从没接触过VBA，只能用笨办法，您的指点觉得很神奇，特地买了两本书回来，请多多指导哦。