VBA常用语句

VBA语句End(xlDown)End(xlUp)End(xlToright)End(xlToleft)Selection.CopySheets(筛选表格).SelectRange(A2).SelectActiveSheet.PasteRange(C7).SelectApplication.CutCopyMode=FalseCDblCStrCintColumns(F:F).DeleteRows(1:1).DeleteActiveWorkbook.Worksheets.CountRange(Workbooks(产生表格).Sheets(查找表格).Cells(t1,3),Workbooks(产生表格).Sheets(查找表格).Cells(t1,14)).CopyRange(Sheets(i0).Cells(i,7),Sheets(i0).Cells(i,18))Application.WorksheetFunction.sum(Range(Cells(i,7+k3*88),Cells(i,18+k3*88))OnErrorResumeNextCells(1,1).Value=IIf(b=0,-,+)Selection.InsertShift:=xlToRightComboBox1.AddItemComboBox1.textListBox4.ClearListBox4.RemoveItemListBox4.ListIndexListBox4.ListCountListBox6.List(m)Selection.AutoFillDestination:=Range(Cells(2,2),Cells(n,2))InStr(a,b,c)Cells(1,1).ReplacePowders/Granules,PowdersGranulesStrings.Mid(a,b,c)c()=Split(a,/,4)c()=Split(a,/)UBound(d())Columns(A:H).EntireColumn.AutoFitOnErrorResumeNext解释fortoNext(exitfor)复制粘贴IfThenelseEndif转换删除计算工作表数前者内容复制到后者使用工作表函数放在会出现运行错误语句前面IIf使用方法插入新列选择框添加选项读取选择框选择内容清空列表框删除列表框选中项计算列表框数据项数列表框第m个数据（从0开始）自动填充在字符串b中从第a位开始寻找c字段所在位置工作表替换字段取字段a中从第b到c位的字段（c可以不写，意味取字段到最后位）把字段a按/分裂为4个字段并赋值给c数组计算数组d所包含数据个数A到H列自动达到最佳行距MANUFACT.SHORTDESCMANUFACT.DESCMANUF.TYPESHORTDESCMANUF.TYPEDESCTCISHORTDESCJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALJJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALAJYFJS.YANGZIJIANGFTYLLOCALTJYFJS.YANGZIJIANGFTYLLOCALCJYFJS.YANGZIJIANGFTYLLOCALCJYFJS.YANGZIJIANGFTYLLOCALCJYFJS.YANGZIJIANGFTYLLOCALCJYFJS.YANGZIJIANGFTYLLOCALCJYFJS.YANGZIJIANGFTYLLOCALCJYFJS.YANGZIJIANGFTYLLOCALCJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALVJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALMJYFJS.YANGZIJIANGFTYLLOCALMJYFJS.YANGZIJIANGFTYLLOCALMJYFJS.YANGZIJIANGFTYLLOCALMJYFJS.YANGZIJIANGFTYLLOCALMJYFJS.YANGZIJIANGFTYLLOCALBJYFJS.YANGZIJIANGFTYLLOCALBJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALRJYFJS.YANGZIJIANGFTYLLOCALRJYFJS.YANGZIJIANGFTYLLOCALRJYFJS.YANGZIJIANGFTYLLOCALRJYFJS.YANGZIJIANGFTYLLOCALRJYFJS.YANGZIJIANGFTYLLOCALKJYFJS.YANGZIJIANGFTYLLOCALKJYFJS.YANGZIJIANGFTYLLOCALGJYFJS.YANGZIJIANGFTYLLOCALDJYFJS.YANGZIJIANGFTYLLOCALDJYFJS.YANGZIJIANGFTYLLOCALDJYFJS.YANGZIJIANGFTYLIMPORTAJYFJS.YANGZIJIANGFTYLIMPORTAJYFJS.YANGZIJIANGFTYLIMPORTAJYFJS.YANGZIJIANGFTYLIMPORTNJYFJS.YANGZIJIANGFTYLIMPORTNJYFJS.YANGZIJIANGFTYLIMPORTNJYFJS.YANGZIJIANGFTYLIMPORTNJYFJS.YANGZIJIANGFTYLIMPORTLJYFJS.YANGZIJIANGFTYLIMPORTLJYFJS.YANGZIJIANGFTYLIMPORTLJYFJS.YANGZIJIANGFTYLIMPORTLJYFJS.YANGZIJIANGFTYLIMPORTLJYFJS.YANGZIJIANGFTYLIMPORTRJYFJS.YANGZIJIANGFTYLIMPORTRJYFJS.YANGZIJIANGFTYLIMPORTRJYFJS.YANGZIJIANGFTYLIMPORTRJYFJS.YANGZIJIANGFTYLIMPORTRJYFJS.YANGZIJIANGFTYLIMPORTCJYFJS.YANGZIJIANGFTYLIMPORTCJYFJS.YANGZIJIANGFTYLIMPORTCJYFJS.YANGZIJIANGFTYLIMPORTBJYFJS.YANGZIJIANGFTYLIMPORTJJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALNJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLJYFJS.YANGZIJIANGFTYLLOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALLAZNASTRAZENECAILOCALJAZNASTRAZENECAILOCALJAZNASTRAZENECAILOCALJAZNASTRAZENECAILOCALJAZNASTRAZENECAILOCALJAZNASTRAZENECAILOCALJAZNASTRAZENECAILOCALJAZNA