micotine的博客

最近在做数据对照查找，类似vlookup的使用。最初使用的是worksheet中的cell单元格数值对应相等，返回一个结果。后来发现速度很慢。查阅资料后，发现使用数组很快。特此记录。思路：将数据源的两列数据对应成两个数组，分别读入到数组中，再使用输入单元格的数值和数组数值对比，如果相等，则返回第二个数组的对应值。Sub test2()'合并,速度更快Dim i '用于数组的索引，如果数据量很大，用int可能会溢出（int最大3w多），所以设置成variantDim j As Int

具体使用：http://club.excelhome.net/thread-803051-3-1.html注意事项：1、run后面跟一个字符串，路径前后需要使用'来完成，单独使用需要""2. 因为后面是字符串，需要明确空格。

msgbox就是常见的弹出窗口，有两种存在形式：语句和函数。最直观的区别在于是否有返回值，例如：dim i as integeri = MsgBox("File already exist", vbYesNoCancel, "File exists") 函数形式，弹出窗口，并有一个返回值，MsgBox "File already exist", vbYesNoCancel, "F...

操作文件有以下几个功能。1. 获取文件的路径：当前的文件路径。函数：thisworkbook.pathDim ipath, iname As Stringipath = ThisWorkbook.Path & "\"返回的ipath为当前目录，例如：D:\工作\0307（华泰升版最终）\华泰\ST\1\。后面可以直接跟文件名。2. 用于判断是否存在文件：...

RANGE对象表示为单元格或单元区域（区别cells对象，仅表示某单元格），表示方法有如下几种：Range("C3: B109").Select '区域选中'Range("B109").Select 'B109单元格选中'Range(Cells(i, 2), Cells(i, 3)).Select'单元格（i,2）至(i,3)选中，可用于数值输入'range对象赋...

worksheets对象为工作表tab，使用规则：ZDJ = Worksheets(1).Cells(i, 2).ValueZDJ=Worksheets("sheet1").cells(i,2).Value