好好学习，坚持

使用ado操作外部数据conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\BaiduNetdiskDownload\EXCEL_VBA\第十六课\data\Edata.xlsx;Extended Properties=""HDR=YES;"""Range("a1").CopyFromRecordset conn.Execute...

VBA数组：dim i as Longdim itimer:时间 t = timer .... msgbox timer - t循环时间长，所以很忌讳在循环中取单元格，可以将单元格的值赋值给string类型变量数组dim arr()arr = range("g1:j200000")通过arr(第几行，第几列)取值可以大幅度提升速度dim arr(1 to 4)arr...

在该workbook中改动保存了，就自动备份不要使用这个另存，thisWorkbook.SaveAs "d:\data\1.xlsx"这样当另存完之后，会自动打开该另存文件1.xlsx，当前文件就被更改为1.xlsx要保证所有操作都在原文件上，不能影响用户操作有个偷偷保存的的事件：在工作簿文件中编辑：workbook -- beforeSavethisWorkbook.savecopy...

在VBA中窗口可以看到sheet1是哪张表，之后增加表，或者修改表的名字，移动表的位置等，该对应的表都不会改变，可以防止以后表定位不准的问题定义：dim i as Integer循环：for i=10 to 1 step -2 ... nextfor i=1 to sheets.count 这个循环数，不随着sheets.count的改变而改变条件：if "..."="" then ......

即席查询(Ad Hoc):用户根据自己的需求，灵活的选择查询条件，系统能够根据用户的选择生成相应的统计报表。即席查询与普通应用查询最大的不同是普通的应用查询是定制开发的，而即席查询是由用户自定义查询条件的。find函数：find（查找的内容，源文本，从第几个位置开始查找），返回的结果是它的位置substitute函数：substitute（源文本，旧字符串，新字符串，[替换第几个出现的]...