渴求高手给个VBA命令

这个问题用数组公式就可以完成，没必要用VBA~~~

我描述的是否有问题？

哦？要如何做？

那能不能完善到 在SHEET1的A1输入一个数值 例如20110318
在B1取得想要的那个数值？
这个也能用数组公式得到？
要怎么做？

描述是有点问题，尤其是这一句：
现在想要取得 比输入的数值小7（含7）的A列中对应的B列数值

看来是我描述的问题
这样来说吧
就是输入一个数值 例如20110318
在A列中存在一组数据如：
20110215
20110414
20110421
。。。。
对应的B列中数值为
17.2
18.3
19.7
。。。。
这个数值（20110318）减去A列中的数值 结果是大于等于7的，A列中的数值
满足这一条件的A列数值中最大的那个数，对应的B列数值
例如
现在输入20110423
符合条件的有
20110215
20110414
对应的B列数值就是
17.2
18.3
我要的数值就是最大的那个数
18.3
当数据更多的时候
想得到同样的结果
要怎么做？
求高手指点…………不胜感激…………

哦，只要一个最大值吗？？？
那简单多了~~呵呵！！试一下下的的公式，现在是A1:A500，你也可以自己修改为公式引用区域的大小：
=MAX(IF(A1:A500-20110318<=7,B1:B500))
数组公式，输入完成后，按Ctrl+Shift+Enter结束！！
对了，公式里的20110318也可以改为单元格引用，如D1~~~

非常感谢啊！
那能再求教一下
如果要的不是B列中的最大值
而是满足条件的A列中的最大值，对应的B列的那个数值呢？
要怎么做？
呵呵，非常感激啊。。

=MAX(IF(A1:A500=MAX(IF(A1:A500>=D1-7,A1:A500)),B1:B500))