VBA基础--对象操作

常见的对象
Workbook	工作簿
Worksheet	工作表
Range	单元格区域
cell	单元格

Sub ob()

'工作簿对象操作

'1--打开当前工作簿路径下，一个名为“要打开的工作簿”

Workbooks.Open ThisWorkbook.Path & '\' & '要打开的工作簿.xlsx'

'2--关闭工作簿,并保存修改，如果不保存修改，savechanges改为false

Workbooks('要打开的工作簿.xlsx').Close SaveChanges:=True

'工作表对象的操作

'1--定义工作表对象

Dim mysht As Worksheet '定义工作表对象

Set mysht = ThisWorkbook.Sheets('Sheet1')  '将工作表对象赋值给变量

'2--工作表的循环

'1）把当前工作簿的每个工作表的A1单元格填上“VBA代码集锦”

    For i = 1 To ActiveWorkbook.Worksheets.Count

    ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = 'VBA代码集锦'

    Next

'2）把当前工作簿的每个工作表的A1单元格填上“VBA代码集锦”

    For Each sh In ThisWorkbook.Worksheets  

        sh.Cells(1, 1).Value = 'VBA代码集锦'

    Next

'3--激活、选中、删除工作表

    ThisWorkbook.Sheets('Sheet2').Activate

    ThisWorkbook.Sheets('Sheet2').Select

    ThisWorkbook.Sheets('Sheet2').Delete

'Range对象操作

ThisWorkbook.Sheets('Sheet1').Select

'1--单个单元格选中

    Range('A2').Select

    Cells(2, 1).Select '第二行第一列

'2--连续单元格区域选中

    Range('A2:A5').Select

    Range(Cells(2, 1), Cells(5, 1)).Select

'3--不连续单元格区域选中

    Application.Union(Range('A1:A5'), Range('C1:C5')).Select '选中这两个区域

    Range('A1:A5,A2:A7,B2:B10').Select '选中这三个区域合并后的区域

    Range('A1:A5 A3:A8').Select '选中这两个区域相交叉的区域

    Range('A4:A10', 'D2:D8').Select '选中这两个区域所围成的最小的矩形区域

'4--引用行列

    Rows(3).Select '选中第3行

    Rows('3:8').Select '选中第3-8行

    Columns(3).Select '选中第3列

    Columns('D').Select '选中第D列

    Columns('A:D').Select '选中第A-D列

'5--复制

'    1)把sheet1中A1:A5的值复制到Sheet3的A1:A5

    ThisWorkbook.Sheets('Sheet3').Range('A1:A5').Value = ThisWorkbook.Sheets('Sheet1').Range('A1:A5').Value

'    2)将工作表 Sheet1单元格A1:A5中的公式复制到工作表 Sheet3的单元格B1:B5中,包含格式与公式

     ThisWorkbook.Sheets('Sheet1').Range('A1:A5').Copy ThisWorkbook.Sheets('Sheet3').Range('B1')

'    3)将工作表 Sheet1单元格A1:A5中的公式复制到工作表 Sheet3的单元格C1:C5中,只复制值

     ThisWorkbook.Sheets('Sheet1').Range('A1:A5').Copy

     ThisWorkbook.Sheets('Sheet3').Range('C1').PasteSpecial xlPasteValues

End Sub

----------------------------------------