VBA常用语句选读.docx

获取名字: ????WorkbookName主表 = ActiveWorkbook.Name ????Sheet透视表 = ActiveSheet.Name 选定: ????Windows(WorkbookName主表).Activate ????Sheets(取数).Select ????Range(A1).Select ????Range(K1:M3).Select 单元格赋值: ????Range(A1)=Abc ????[A1]=Abc ????Cells(行, 列)=123.00 单元格跨薄引用(不打开工作薄而提取数据): =F:\负债业务日报\prg\[模板20.xls]金融资产!F5:F5 或: ????Range(A28).FormulaArray = =[模板20.xls]金融资产!D4:D4 ????Range(A28).Formula ?????= =[模板20.xls]金融资产!D4:D4 是否显示警告信息: ????Application.DisplayAlerts = False ?True= 显示警告信息 显示提示信息: ????MsgBox 包括完整路径的工作簿名称为： ThisWorkbook.FullName 选择是否提示: If MsgBox(设为汇总的单元格是: Selection.Address ?确定吗?, vbYesNo) = vbNo Then Exit Sub 关闭薄: ????Windows(Workbook表).Close 删除子表: ????Sheets(操作步骤).Delete ?或: ????Sheets(Sheet透视表).Select ????ActiveWindow.SelectedSheets.Delete 删除行 ????Rows(2:316).Select ????Application.CutCopyMode = False ????Selection.Delete Shift:=xlUp ????Range(A2).Select 删除单元格: ????Range(B5).Delete 对象的完整引用: Windows(模板1.xls).Activate Range(A28) = Application.Workbooks(模板20_表内数据转换2.xls).Sheets(操作步骤).Range(F7) 更简洁地: [A28]=Workbooks(模板20.xls).Sheets(操作步骤).Range(F7) 复制单元格(带格式): Sub Macro1() ????Range(A1:C3).Select ????Selection.Copy ????Range(C1).Select ????ActiveSheet.Paste End Sub 同薄复制单元格(带格式) Sub Macro_1() ????Range(A1).Copy Range(C1) End Sub 同薄复制单元格区域(空白为边界) Sub RngCopy() ????Range(A1).CurrentRegion.Copy Range(G1) G1应在当前活动工作表 或 ????Windows(模板20.xls).Activate ????Worksheets(操作步骤).Range(F7).CurrentRegion.Copy Worksheets(发布0).Range(D9) 或 ?Sheets(操作步骤).Range(F7).CurrentRegion.Copy Sheets(发布0).Range(D9) End Sub 同薄复制单元格,去掉多余的激活和选择 Range(A1).Copy Sheets(Sheet2).Range(B1) 通过数组读写单元内容(不带格式): Sub RngArr() ????Dim arr As Variant ??????????????定义变量 ????arr = Range(A1:C3).Value ??????将A1：C3单元格的内容存储到数组arr里 ????Range(E1:G3).Value = arr ??????将数组arr的数据写入E1:G3单元格区域 End Sub 实例: ????Dim arr As Variant ????Windows(模板20.xls).Activate ????arr = Sheets(金融资产).Range(D4:AX82).Value ???? ????Windows(模板1.xls).Activate ????Sheets(金融资产).Range(D4:AX82).Value = arr 全表复制粘贴: ????Windows(Workbook表).Activate ????She