41 Range('A1').Copy Range('B1') 復制單元格A1，粘貼到單元格B1中
42 Range('A1:D8').Copy Range('F1') 將單元格區域復制到單元格F1開(kāi)始的區域中
43 Range('A1:D8').Cut Range('F1') 剪切單元格區域A1至D8，復制到單元格F1開(kāi)始的區域中
44 Range('A1').CurrentRegion.Copy Sheets('Sheet2').Range('A1') 復制包含A1的單元格區域到工作表2中以A1起始的單元格區域中
45 Worksheets('Sheet1').Activate 激活Sheet1 工作表（Sheet1是隱藏狀態(tài)也可以）
46 ActiveCell.CurrentRegion.Select 選擇活動(dòng)單元格區域
47 Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select 選擇活動(dòng)單元格固定區域
44 ActiveWindow.RangeSelection.Value=XX 將值XX輸入到所選單元格區域中
45 ActiveWindow.RangeSelection.Count 活動(dòng)窗口中選擇的單元格數
46 Selection.Count 當前選中區域的單元格數
47 TextColor=Range('A1').Font.ColorIndex 檢查單元格A1的文本顏色并返回顏色索引
48 Range('A1').Interior.ColorIndex 獲取單元格A1背景色
49 cells.count 返回當前工作表的單元格數
50 Selection.Range('E4').Select 激活當前活動(dòng)單元格下方3行，向右4列的單元格
51 Cells.Item(5,'C') 引單元格C5
52 Cells.Item(5,3) 引單元格C5
53 Range('A1').Offset(RowOffset:=4,ColumnOffset:=5) 指定單元格F5
54 Range('A1').Offset(4,5) 指定單元格F5
55 Range('B3').Resize(RowSize:=11,ColumnSize:=3) 創(chuàng )建B3：D13區域
56 Rnage('B3').Resize(11,3) 創(chuàng )建B3：D13區域
57 Range('Data').Resize(,2) 將Data區域擴充2列
58 Union(Range('Data1'),Range('Data2')) 將Data1和Data2區域連接
59 Intersect(Range('Data1'),Range('Data2')) 返回Data1和Data2區域的交叉區域
60 Range('Data').Count 單元格區域Data中的單元格數
61 Range('Data'). Columns.Count 單元格區域Data中的列數
62 Range('Data'). Rows.Count 單元格區域Data中的行數
63 Selection.Columns.Count 當前選中的單元格區域中的列數
64 Selection.Rows.Count 當前選中的單元格區域中的行數
65 Selection.Areas.Count 選中的單元格區域所包含的區域數
66 ActiveSheet.UsedRange.Row 獲取單元格區域中使用的第一行的行號
67 Rng.Column 獲取單元格區域Rng左上角單元格所在列編號
68 Range('A1').AutoFilter Field:=3,VisibleDropDown:=False 關(guān)閉由于執行自動(dòng)篩選命令產(chǎn)生的第3個(gè)字段的下拉列表名稱(chēng)
69 Range('A1：C3').Name='my' 命名A1：C3區域為my
70 Names('computer').Name='robot' 將區域computer重命名為robot
71 Names('book').Delete 刪除名稱(chēng)
72 Application.WorksheetFunction.IsNumber('A1') 使用工作表函數檢查A1單元格中的數據是否為數字
73 Range('A:A').Find(Application.WorksheetFunction.Max(Range('A:A'))).Activate 激活單元格區域A列中最大值的單元格
74 Cells(8,8).FormulaArray='=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)' 在單元格中輸入數組公式。注意必須使用R1C1樣式的表達式
75 ActiveSheet.ChartObjects.Count 獲取當前工作表中圖表的個(gè)數
76 ActiveSheet.ChartObjects('Chart1').Select 選中當前工作表中圖表Chart1
77 ActiveSheet.ChartObjects('Chart1').Activate
ActiveChart.ChartArea.Select 選中當前圖表區域
78 WorkSheets('Sheet1').ChartObjects('Chart2').Chart.ChartArea.Interior.ColorIndex=2 更改工作表中圖表的圖表區的顏色
79 Sheets('Chart2').ChartArea.Interior.ColorIndex=2 更改圖表工作表中圖表區的顏色
80 Charts.Add 添加新的圖表工作表
