VBA常用语句.docx

文档介绍：获取名字:
    WorkbookName主表=
    Sheet透视表=
选定:
    Windows(WorkbookName主表).Activate
    Sheets("取数").Select
    Range("A1").Select
    Range("K1:M3").Select
单元格赋值:
    Range("A1")="Abc"
    [A1]="Abc"
    Cells(行, 列)=""
单元格跨薄引用(不打开工作薄而提取数据):
='F:\负债业务日报\prg\[]金融资产'!F5:F5
或:
    Range("A28").FormulaArray = "=[]金融资产!D4:D4"
    Range("A28").Formula      = "=[]金融资产!D4:D4"
是否显示警告信息:
     = False  'True= 显示警告信息
显示提示信息:
    MsgBox "包括完整路径的工作簿名称为:" &
选择是否提示:
If MsgBox("设为汇总的单元格是:" & & "  确定吗?", vbYesNo) = vbNo Then Exit Sub
关闭薄:
    Windows(Workbook表).Close
删除子表:
    Sheets("操作步骤").Delete  或:
    Sheets(Sheet透视表).Select
    
删除行
    Rows("2:316").Select
     = False
     Shift:=xlUp
    Range("A2").Select
删除单元格:
    Range("B5").Delete
对象的完整引用:
Windows("").Activate
Range("A28") = ("").Sheets("操作步骤").Range("F7")
更简洁地:
[A28]=Workbooks("").Sheets("操作步骤").Range("F7")
复制单元格(带格式):
Sub Macro1()
    Range("A1:C3").Select
    
    Range("C1").Select
    
End Sub
同薄复制单元格(带格式)
Sub Macro_1()
    Range("A1").Copy Range("C1")
End Sub
同薄复制单元格区域(空白为边界)
Sub RngCopy()
    Range("A1"). Range("G1") 'G1应在当前活动工作表
或
    Windows("").Activate
    Worksheets("操作步骤").Range("F7"). Worksheets("发布0").Range("D9")
或 Sheets("操作步骤").Range("F7"). 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("").Activate