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--工作表的循環(huán)

'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--連續(xù)單元格區(qū)域選中

    Range('A2:A5').Select

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

'3--不連續(xù)單元格區(qū)域選中

    Application.Union(Range('A1:A5'), Range('C1:C5')).Select '選中這兩個區(qū)域

    Range('A1:A5,A2:A7,B2:B10').Select '選中這三個區(qū)域合并后的區(qū)域

    Range('A1:A5 A3:A8').Select '選中這兩個區(qū)域相交叉的區(qū)域

    Range('A4:A10', 'D2:D8').Select '選中這兩個區(qū)域所圍成的最小的矩形區(qū)域

'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

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