VBA编程经典语句系列41（80）
大家在学习VBA过程中要注意积累自己的所学，以后我会不定期的将写代码过程中经常用到的一些语句及解释总结供大家参考。这些可以作为积木编程的一个有效补充。此资料的所有部分在大家分享我的教程后会同时送给给大家，今日给大家分享第二部分：
41 Range(“A1”).Copy Range(“B1”) 复制单元格A1，粘贴到单元格B1中
42 Range(“A1:D8”).Copy Range(“F1”) 将单元格区域复制到单元格F1开始的区域中
43 Range(“A1:D8”).Cut Range(“F1”) 剪切单元格区域A1至D8，复制到单元格F1开始的区域中
44 Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) 复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
45 Worksheets("Sheet1").Activate 激活Sheet1 工作表（Sheet1是隐藏状态也可以）
46 ActiveCell.CurrentRegion.Select 选择活动单元格区域
47 Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select 选择活动单元格固定区域
44 ActiveWindow.RangeSelection.Value=XX 将值XX输入到所选单元格区域中
45 ActiveWindow.RangeSelection.Count 活动窗口中选择的单元格数
46 Selection.Count 当前选中区域的单元格数
47 TextColor=Range(“A1”).Font.ColorIndex 检查单元格A1的文本颜色并返回颜色索引
48 Range(“A1”).Interior.ColorIndex 获取单元格A1背景色
49 cells.count 返回当前工作表的单元格数
50 Selection.Range(“E4”).Select 激活当前活动单元格下方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) 创建B3：D13区域
56 Rnage(“B3”).Resize(11,3) 创建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 关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称
69 Range(“A1：C3”).Name=“my” 命名A1：C3区域为my
70 Names(“computer”).Name=“robot” 将区域computer重命名为robot
71 Names(“book”).Delete 删除名称
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 获取当前工作表中图表的个数
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 添加新的图表工作表