1、選擇一個工作表 :Sheets("Balance").Activate.選擇單元格 :Range("A1").Select選擇連續的單元格 :Range("A1:G8").Select選擇不連續的單元格 :Range("A1,B6,D9").SelectRange("A1,B6:B10,D9").Select選擇當前活動的工作簿 :ThisWorkbook.Activate如果選擇其他工作簿，注意該工作簿一定是打開的，并且不要忘記加上后綴“ .xls ，”例如：Windows("Tot

2、ol.xls").Activate選擇一個工作表 :Sheets("Balance").Activate.單元格間移動 :ActiveCell.Offset(13, 14).SelectSelection.Offset(-3, -4).SelectRange("G8").Offset(-3, -4).Select注意：你可以定義一變量，并且用offset 來實現，例如：varFreightRowsCount = Range("A1").CurrentRegion.Rows.CountActiveCell.Offset(var

3、FreightRowsCount, 0).Select1 / 8選擇整個工作表 :Cells.Select選擇當前單元格所在的區域(遇到空行/ 空列即止 ):Range("A1").CurrentRegion.Select選擇行或列 :Rows("1").SelectColumns("A").Select或者 :ActiveCell.EntireRow.SelectActiveCell.EntireColumn.Select選擇相鄰的多行 /多列：Columns("A:C").SelectRows("1:

4、5").Select選擇不相鄰的多行 /多列：注意：和選擇相鄰的多行/多列不同，使用 "Range"而不是 "Columns/Rows"：Range("A:A, C:C, E:F").SelectRange("1:1,5:6,9:9").Select選擇當前活動單元格向下至最后一個非空單元格:Range("A1", Range("A1").End(xlDown).SelectRange(ActiveCell, ActiveCell.End(xlDown).Selec

5、t選擇當前活動單元格向上至第一個非空單元格:Range("A32", Range("A32").End(xlUp).SelectRange(ActiveCell, ActiveCell.End(xlUp).Select2 / 8選擇當前活動單元格向右至第一個非空單元格?注意：是"xlTORight" 而不是"xlRight"Range("A1", Range("A1").End(xlToRight).SelectRange(ActiveCell, ActiveCell.End

6、(xlToLeft).Select選擇當前活動單元格向右至第10 個單元格 ?Range("A2", Range("A2").Offset(0, 10).SelectRange(ActiveCell, ActiveCell.Offset(0, 10).Select選擇當前活動單元格向左至第10 個單元格 ?Range("A20", Range("A20").Offset(0, -10).SelectRange(ActiveCell, ActiveCell.Offset(0, -10).Select選擇當前活動單元格

7、向下至第10 個單元格 ?Range("a2", Range("a2").Offset(10, 0).SelectRange(ActiveCell, ActiveCell.Offset(10, 0).Select選擇當前活動單元格向上至第10 個單元格 ?Range("A1").End(xlDown).Offset(1, 0).Select選擇該行中第一個空單元格:Range("A1").End(xlToRight).Offset(0, 1).Select改變區域的大小 (由 A1:B5 變為 A1:D10) ：注

8、意：改區域并不是向外擴張， 而是重新定義了。即 “Selection.Resize(10, 4).Select而不是 Selection.Resize(5, 2).SelectExcel 的宏不能記錄移至當前行的第一個單元格的動作（即你按下 “ Home”鍵的動作），下面的語句則可以做到：ActiveCell.Offset(0, -ActiveCell.Column + 1).Select移至當前列的第一個單元格:3 / 8ActiveCell.Offset(-ActiveCell.Row + 1, 0).Select關于 If.Then.EndIf如果只有一個條件及一個動作，你可以用以下語句

9、：If Selection.Value > 10 ThenSelection.Offset(1, 0) = 100End If或者更簡單的 :If Selection.Value > 10 Then Selection.Offset(1, 0) = 100如果有兩個條件及兩個動作，你可以用下面的語句If Selection.Value > 10 ThenIf Selection.Value = 12 ThenSelection.Offset(1, 0) = 100End IfSelection.Offset(1, 0) = 20End If關于 If.Then.And.End

10、If當有雙重條件和一個動作時，你可以用下面的語句：If Selection.Value = 10 And Selection.Offset(0, 1).Value = 20 ThenSelection.Offset(1, 0) = 100End If關于 If.Then.Or.EndIf當有雙重條件和一個動作時，你可以用下面的語句：If Selection.Value = 10 Or Selection.Offset(0, 1).Value = 20 Then4 / 8Selection.Offset(1, 0) = 100End If關于 If.Then.Else.EndIf當只有一個條件和

11、兩個動作時，你可以用下面的語句：If Selection.Value > 10 ThenSelection.Offset(1, 0) = 100ElseSelection.Offset(1, 0) = 0End If關于 If.Then.ElseIf.EndIf當有不止一個條件，且每個條件都跟隨不同的動作時，你可以用下面的語句：If Selection.Value = 1 ThenSelection.Offset(1, 0) = 10ElseIf Selection.Value = 2 ThenSelection.Offset(1, 0) = 20ElseIf Selection.Val

12、ue = 3 ThenSelection.Offset(1, 0) = 30ElseIf Selection.Value = 4 ThenSelection.Offset(1, 0) = 40ElseIf Selection.Value = 5 ThenSelection.Offset(1, 0) = 50End If關于 Select Case5 / 8當你不得不測試很多條件， 你可以用 Select Case 語句來代替 If Then.ElseIf 。語法如下：Sub test()Select Case Selection.ValueCase Is >= 85Selection.O

13、ffset(0, 1) = "A"Case Is >= 75Selection.Offset(0, 1) = "B"Case Is >= 65Selection.Offset(0, 1) = "C"Case Is >= 50Selection.Offset(0, 1) = "D"Case ElseSelection.Offset(0, 1) = "F"End SelectEnd Sub這段語句的意思就是：如果所選單元格的值大于85 時，則其右邊那個單元格的值為 “A”所選單元格

14、的值小于50 時，其右邊那個單元格的值為“F”這里有一些關于VBA 函數 LCase, Now(), UCase 的例子：注意 : 很多 EXCEL 函數都可以以下面的形式用在VBA 中:varAnswer = Application.WorksheetFunction.Sum(Range("A1:A32")或者varAnswer = Application.Sum(Range("A1:A32")6 / 8LCase當對輸入的字符做判斷時，我們無法知道用戶輸入的字符是大寫還是小寫，用LCase 函數可以將其轉化為小寫：If LCase(Selection

15、.value)= "toto" then.orSelect Case LCase(Selection.Value)orDo While LCase(Selection.Value) <> "toto"NOW()NOW() 既是 Excel 函數也是 VBA 函數。通過下面的語句，在打開工作簿時，單元格"A1" 就會顯示為當前時間：Range("A1").Formula = "=Now()"下面的語句則在執行后賦予單元格“A1”當前時間，該時間不會改變除非你再次執行語句。并且你每次打開工作簿后，單元格“A1”的值不會改變。Range(&q