<em>Excel</em>VBA编程实例(速成150例)

右击excel的sheet也名称，点击查看代码抄，这时就打开了一个VBA窗口。
VBA都是由 Sub 宏名() 开始，End Sub 结束。
推荐你一本书《百别怕，Excel VBA其实很简单》，简单通俗，适合初学度者。这个在百度上都能搜得到电子版的。

可以用时间的一列用来做条件
比如百说这一单元格cells（1,2）按一定格式输入时间
假设D盘Excel中一个sheet的第度一列为时间列
打开工作表
ActiveWorkbook.Open Filename:=ThisWorkbook.Path & "\" &strExcelName
With ActiveWorkbook.Sheets(“sheet”)
L=.Cells(65565, 1).End(xlup).Row
for i =1 to L
cells（1,2）=cells（i,1）
Next i
贴出记录
end with
我建议不要回这样做应该建Access数据库先导数（D盘的Excel），
再用答SQL语句查找
strsql="select * from ta where 时间='" & cells(1,2) & "'"
rs.Open strsql, Conn
在贴出记录
.Cells(2, 1).CopyFromRecordset rs
这才花的查询时间少