你先把EXCEL自带的函授数都弄懂了, 再写VB也不晚.
象你这个要求其实很简单:
假设第二张表A1:B100是按天的价格, A是日子, B是价格
Insert>Name>Define $A$1:$B$100 as DayPrice
假设第一张表A1:B20是按星期的价格, A是日子.
在C1列里输入下面公式, 然后COPY到C2到C20, 就可以解决你的问题了:
=If(iserror(vlookup($A1, DayPrice, 2, false)), "No Match", vlookup($A1, DayPrice, 2, false))
这里加了个判断以对付没有同样日子的出错问题.
注意, 表一和表二的A列一定要都是日期格式.