这篇是纯粹的原创转载O(∩_∩)O哈哈~

 

选取单元格区域的基本语句：

下面是选取单元格区域的基本语句。
 选择某个单元格：Range("A1").Select或Cells(1,1) .Select
 选择连续的单元格：Range("A1:G8").Select，Range(Cells(1, 1), Cells(8, 7)).Select
 选择不连续的单元格：Range("A1,B6,D9").Select，Range("A1,B6:B10,D9").Select
 单元格间的移动：ActiveCell.Offset(13, 14).Select
Selection.Offset(-3, 4).Select
Range("G8").Offset(-3, -4).Select
 选择某列：Columns("A").Select
 选择连续的几列：Columns("A:K").Select，或Range ("A:K").Select
 选择不连续的几列：Range("B:B,D:D,G:H").Select
 选择所有列：Columns.Select
 选择某行：Range("1:1").Select，或Rows(3).Select
 选择连续的几行：Rows("4:10").Select，或Range("4:10").Select
 选择不连续的几行：Range("4:4,10:10").Select，Range("4:4,7:10").Select
 选择所有行：Rows.Select
 选择当前工作表中A列数据区域底部的最后一行：
Range("A65536").End (xlUp).Select
 选择当前工作表中第5行数据区域右边的最后一列：
Rows("5").End (xlToRight).Select
 选择当前工作表的数据区域底部的A列的最后一行所在的单元格：
Cells(Rows.Count, 1).End(xlUp).Select
 选择当前工作表的数据区域底部的A列的第1个空白行所在的单元格：
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
 选择整个工作表区域：Cells.Select

向单元格中输入数据的基本语句：

给当前单元格赋值：Activecell.Value=10，或Activecell.Value="合计"
 直接给单元格赋值：Cells(1,1)= 200或Range("A1")=200
 给单元格区域赋值：Range("A1:B2"). Value =100或Range("A1:B2") =100或Range((Cells(1,1),(Cells(2,2))=100
 向工作表Sheet1的单元格区域A1:C5中输入数组常量3：
Worksheets("Sheet1").Range("A1:C5").FormulaArray = "=3"
 向工作表Sheet1的单元格区域 E1:E3 中输入数组公式“=SUM(E1:E3)”：
Worksheets("Sheet1").Range("E1:E3").FormulaArray = "=SUM(E1:E3)"
 向单元格A1、B1、C1、D1 中分别输入“科目编码”、“科目名称”、“借方金额”和“贷方金额”：
Range("A1:D1") = Array("科目编码", "科目名称", "借方金额", "贷方金额")
 向单元格A2、B2、C2、D2 中分别输入字符串“1001”、文本“现金”、数字300000和0：
Range("A2:D2") = Array("1001", "现金", 300000, 0)