根据数据范围求对应数据

kandhong88

老师：
    我请教的是：根据数据范围求对应数据。
    思路如下：C14至N24内有数据，我想求C14至N24区域内，每列数据中>=2且<=3时,在B26处显示B列的数据，否则为空。
    举例说明：在B26处，我用的函数是:=IF(AND(C14>=$T$17,C14<=$V$17),$B14,"")。
              当数据很大时，函数的效率会变低，请老师给予VBA。
   
    根据指定范围寻找对应数值.rar (13.68 KB, 下载次数: 3)

2018-6-22 20:46 上传

点击文件名下载附件

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, arr, a, b
  arr = [b14:n24]
  a = [t17]: b = [v17]
  ReDim brr(1 To UBound(arr, 1), 1 To UBound(arr, 2) - 1) As String
  For j = 2 To UBound(arr, 2)
    For i = 1 To UBound(arr, 1)
      If arr(i, j) >= a And arr(i, j) <= b Then brr(i, j - 1) = arr(i, 1)
  Next i, j
  [c26].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

kandhong88

<一把小刀闯天下>老师：
       非常感谢您的VBA，太精彩了，感谢！