excel中代碼是通過vba編輯器編輯和運行的，以excel2007為例介紹操作步驟：　　

1、單擊Excel2007窗口左上角的“Office按鈕”圖標，在彈出的菜單中，單擊“Excel選項”按鈕；　　

2、在“Excel選項”對話框中,單擊左側“常用”分類，勾選“在功能區(qū)顯示"開發(fā)工具"選項卡”項，單擊“確定”按鈕返回Excel2007主窗口，即可添加開發(fā)工具選項卡；　　

3、單擊“開發(fā)工具”菜單-“VisualBasic”圖標；　　

4、Excel2007打開代碼編輯器窗口，單擊“插入”菜單-“模塊”菜單項，即可插入默認的模塊“模塊1”，即可在右側的VBA代碼編輯器窗口輸入VBA代碼；　　

5、代碼編輯完成后，點擊工具欄運行按鈕即可運行。

Option Explicit ‘強制對模塊內所有變量進行聲明

(2) Option Base 1 ‘指定數組的第一個下標為1

(3) On Error Resume Next ‘忽略錯誤繼續(xù)執(zhí)行VBA代碼,避免出現錯誤消息

(4) On Error GoTo 100 ‘當錯誤發(fā)生時跳轉到過程中的某個位置

(5) On Error GoTo 0 ‘恢復正常的錯誤提示

(6) Application.DisplayAlerts=False ‘在程序執(zhí)行過程中使出現的警告框不顯示

(7) Application.DisplayAlerts=True ‘在程序執(zhí)行過程中恢復顯示警告框

(8) Application.ScreenUpdating=False ‘關閉屏幕刷新

(9) Application.ScreenUpdating = True ‘打開屏幕刷新

(10) Workbooks.Add() ‘創(chuàng)建一個新的工作簿

(11) Workbooks(“book1.xls”).Activate ‘激活名為book1的工作簿

(12) ThisWorkbook.Save ‘保存工作簿

(13) ThisWorkbook.close ‘關閉當前工作簿

(14) ActiveWorkbook.Sheets.Count ‘獲取活動工作薄中工作表數

(15) ActiveWorkbook.name ‘返回活動工作薄的名稱

(16) ThisWorkbook.Name ‘返回當前工作簿名稱

(17) ThisWorkbook.FullName ‘返回當前工作簿路徑和名

(18) ActiveSheet.UsedRange.Rows.Count ‘當前工作表中已使用的行數

(19) Rows.Count ‘獲取工作表的行數(注：考慮兼容性)

(20) Sheets(Sheet1).Name= “Sum” ‘將Sheet1命名為Sum

(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ‘添加一個新工作表在第一工作表前

(22) ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ‘將當前工作表移至工作表的最后

(23) Worksheets(Array(“sheet1”,”sheet2”)).Select ‘同時選擇工作表1和工作表2

(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete ‘刪除工作表1

(25) ActiveSheet.UsedRange.FormatConditions.Delete ‘刪除當前工作表中所有的條件格式

(26) Cells.Hyperlinks.Delete ‘取消當前工作表所有超鏈接

(27) ActiveCell.CurrentRegion.Select選擇當前活動單元格所包含的范圍，等同于快捷鍵Ctrl+A

(28) Cells.Select ‘選定當前工作表的所有單元格

(29) Range(“A1”).ClearContents ‘清除活動工作表上單元格A1中的內容。Selection.ClearContents ‘清除選定區(qū)域內容。Range(“A1:D4”).Clear ‘徹底清除A1至D4單元格區(qū)域的內容，包括格式。

(30) Cells.Clear ‘清除工作表中所有單元格的內容

(31) ActiveCell.Offset(1,0).Select ‘活動單元格下移一行，同理，可下移一列

(32) Range(“A1”).Copy Range(“B1”) ‘復制單元格A1，粘貼到單元格B1中

(33) Range(“A1:D8”).Copy Range(“F1”) ‘將單元格區(qū)域復制到單元格F1開始的區(qū)域中

(34) Range(“A1:D8”).Cut Range(“F1”) ‘剪切單元格區(qū)域A1至D8，復制到單元格F1開始的區(qū)域中

(35) Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) ‘復制包含A1的單元格區(qū)域到工作表2中以A1起始的單元格區(qū)域中。