这篇是纯粹的原创转载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)
转载于:https://blog.51cto.com/brantc/372142