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

选择是否提示:
IfMsgBox("设为汇总的单元格是:"&Selection.Address&"确定吗?",vbYesNo)=vbNoThenExitSub

关闭薄:
Windows(Workbook表).Close

删除子表:
Sheets("操作步骤").Delete或:
Sheets(Sheet透视表).Select
ActiveWindow.SelectedSheets.Delete

删除行
Rows("2:316").Select
Application.CutCopyMode=False
Selection.DeleteShift:=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")

复制单元格(带格式):
SubMacro1()
Range("A1:C3").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
EndSub

同薄复制单元格(带格式)
SubMacro_1()
Range("A1").CopyRange("C1")
EndSub

同薄复制单元格区域(空白为边界)
SubRngCopy()
Range("A1").CurrentRegion.CopyRange("G1")'G1应在当前活动工作表
或
Windows("模板20.xls").Activate
Worksheets("操作步骤").Range("F7").CurrentRegion.CopyWorksheets("发布0").Range("D9")
或Sheets("操作步骤").Range("F7").CurrentRegion.CopySheets("发布0").Range("D9")
EndSub

同薄复制单元格,去掉多余的激活和选择
Range("A1").CopySheets("Sheet2").Range("B1")

通过数组读写单元内容(不带格式):
SubRngArr()
DimarrAsVariant'定义变量
arr=Range("A1:C3").Value'将A1：C3单元格的内容存储到数组arr里
Range("E1:G3").Value=arr'将数组arr的数据写入E1:G3单元格区域
EndSub
实例:
DimarrAsVariant
Windows("模板20.xls").Activate
arr=Sheets("金融资产").Range("D4:AX82").Value
'
Windows("模板1.xls").Activate
Sheets("金融资产").Range("D4:AX82").Value=arr

全表复制粘贴:
Windows(Workbook表).Activate
Sheets("表1").Select
Cells.Select'全选
Selection.Copy
Windows(WorkbookName主表).Activate
Sheets("表2").Select
Cells.Select
ActiveSheet.Paste