关闭屏幕的更新动作： application.ScreenUpdate=False 解决大小写比较的问题（A=a）,将下面语句添加到顶部： Option Compare Text 防止出现错误消息框，在顶部添加： application.EnableCanelKey=xlDisabled 强制函数不断重新计算 application.Volatitle True 自定义函数中接受可选参数 function ABC( Optional Ref1 As Variant) 判断是否传入了可选参数 if ismissing(Ref1) then 返回VBA数组的函数: function ABC() ABC=ARRAY（1，2，3，4...） 将水平方向的数组转置为垂直方向 application.transpose(Abc) 设置ARRAY的下界(默认值为0) option Base 接受不定数量的参数的函数,使用数组作为最后一个参数，且...  function abc(patramArray list) 找到大小可以变化单元格子的边界 Range("A1").CurrentRegion.Copy Sheet(2).Range("A1") Range(ActiveCell, ActiveCell.End(xlDown)).Select  'xlUp,xlToLeft,xlToRight 从某个过程执行函数(函数以及参数可以是字符串数字或者变量) tt=application.run("finc_1","abc") 计算选中单元的数目 Selection.Count Selection.Columns.Count Selection.Rows.Count 一些有用的函数 FileExists FileNameOnly  ' 从带路径的文件名中抽出文件名  PathExists RangeNameExists SheetExists WorkbooklsOpen  通过单元格内容选择内容：Public Function SelectCell(nindex As Integer)SelectCell = Cells(nindex, 1)End Function =SelectCell(B1)与下面的EXCEL命令等效=INDIRECT("A" & B1)

评论