1、 Range 属性 Range("A5").Select Range("A6:A10").Select Range("A1, B6, C8").Select Range("A11:D11, C12, D3").Select
2、 Cells 属性 当你要选择一个确定的单元格时，Cells属性要求两个自变量，第一个是行号，第二个是列号或者列字母。
Cells(5, 1).Select或Cells(5, A).Select Range(Cells(6, 1), Cells(10, 1)).Select Cells.Select（选择工作表中所有单元格）
Excel按 下列方式给单元格编号：单元格A1是工作表中的第一个单元格，B1是第二个，C1是第三个，等等。Cell256是第一行中的最后 一个单元格。你也许会想起Excel只有256列。
选择单元格A1 Cells(1).Select or Cells.Item(1).Select IV1Cells(256) A2Cells(257)
Item是返回一个集合成员的属性。因为Item是一个集合的默认成员，你可以直接引用工作表单元格，而不必明确地使用 Item属性。
当需要将单元 格当做集合操作的时候，Cells属性则使用更方便。使用这个属性去访问单元格集合中的所有单元格或者单个单元格。？
3、 Offset 属性 Selection.Offset(2, 2).Resize(2, 4).Select Resize属性决定新选区的大小
4、选择任何行的最后一个单元格 ActiveCell.End(xlright).Select 列 xldown； xleft 行第一个； xlup列第一个
5、选择行和列
选择当前活动单元格所在行的整行 Selection.EntireRow.Select
选择当前活动单元格所在列的整列 Selection.EntireColumn.Select
Range("A1:D15").Select 输入下列语句来得到选区的行数 ?Selection.Rows.Count 列同
6、计算Excel工作表里总单元格数 ?Cells.Count
计算Excel工作表里总行数 ?Rows.Count
7、往工作表输入数据
Value属性： ActiveSheet.Range("A1:C4").Value = "=4 * 25"
Formula属性： ActiveSheet.Range("A1:C4").Formula = "=4 * 25"
8、返回工作表中的信息 Range("A1").Value返回值 ?Range("A1").Formula显示公式
9、?Range("A1").NumberFormat 显示单元格格式 设置单元格格式 Range("A1").NumberFormat = "$#,##0.00"
在中断模式下，在窗口中输入?i，回车，就会输出目前i的值（当前过程中）
10、移动单元格A5的内容到单元格A4里面 Range("A5").Cut Destination:=Range("A4")
复制单元格A3里的公式到区域D5:F5中 Range("A3").Copy Destination:=Range("D5:F5")
清除单元格A4里的内容 Range("A4").Clear Range("A4").Cut
ClearContents－仅清除单元格或单元格区域内的数据
ClearFormats－仅清除格式
ClearContents－清除区域里的所有批注
11、在新窗口里显示当前活动工作簿 ActiveWorkbook.NewWindow
在屏幕上显示所有打开了的工作簿 Windows.Arrange
激活第二个窗口 Windows(2).Activate
获得当前窗口的名称 ?ActiveWindow.Caption
将当前窗口的名称改为“My Window” ActiveWindow.Caption = "My Window"
xlArrangeStyleTiled 1 平铺窗口（默认模式） xlArrangeStyleCascade 7 层叠窗口 xlArrangeStyleHorizontal 2 水平并排窗口 xlArrangeStyleVertical 3 垂直并排窗口
例：Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade 或Windows.Arrange ArrangeStyle:=7
12、Application.SaveWorkspace "Project" 上面的指令将屏幕设置保存在名叫“Project”的工作区里。下次你要在相同的文件和窗口排列时，只要打开“Project”文 件， Excel就会打开正确的文件和恢复你要的屏幕。
获取当前应用程序名称 ?Application.Name
将Excel应用程序标题改为“My Application” Application.Caption = "My Application"
获取你正在使用的操作系统 ?Application.OperatingSystem
获取该应用程序注册的人名或公司名 ?Application.OrganizationName
获取Excel.exe保存的文件夹路径 ?Application.Path
13、FullName = "John Smith" DateOfBirth = #1/3/1967#
Dim extension As String * 3
Dim FirstName$ 等同于 和Dim FirstName As String
创建变量的时候就将其初始化了。变量假定为它们的默认值，数字型变量设置为0，布尔型变量为False，字符串变 量设置为空字符（””），日期型变量设置为1899年12月30日
14、Option Explicit。Option Explicit语句意味着在本模块里使用的所有变量都必须经过正式声明。
With Range("B6")
.NumberFormat = "0.00"
End With
Format(expression, format) 例 Cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
VB使用Option Explicit语句自动提醒你正式地声明你的变量，这个语句必须放在每个模块的最上面。
选择“工具”－“选项” -“要求变量声明”被勾选上
15、过程级别范围（当地， 关键字Dim，可以在不同的过程里面使用同样的变量名称，一旦该过程结束，该变量便立即消失）
模块级别范围 （Dim放在模块表里任何过程的上面（紧接着在关键字Option Explicit的下面
当你在模块级别声明变量时，除了关键字Dim之外，你还可以使用关键字Private。例如， Private slsTax As Single
私有变量仅仅在声明该变量的模块里的过程中可用。私有变量总是在模块的上面Option Explicit语句之后声明。
'declaration of variables
Dim slsPrice As Currency
Dim Cost As Currency
Dim strMsg As String
slsPrice = 35
slsTax = 0.085
Range("A1").Formula = "The cost of calculator"
Range("A4").Formula = "Price"
Range("B4").Formula = slsPrice
Range("A5").Formula = "Sales Tax"
Range("A6").Formula = "Cost"
Range("B5").Formula = Format((slsPrice * slsTax), "0.00")
Cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
With Range("B6").Formula = Cost
End With
strMsg = "The calculator total is " & "$" & Cost & "."
Range("A8").Formula = strMsg
End Sub
Dim slsPrice As Currency
Dim Cost As Currency
slsPrice = 55.99
Cost = slsPrice + (slsPrice * slsTax)
MsgBox slsTax(0.085)
MsgBox Cost(60.7492)
工程级别范围
保持工程级别的变量为私有，可以在 Option Explicit语句下面，模块的上面输入Option Private Module， 例如： Option Private Module
模块级别的变量用关键字Public（而不是Dim）声明时，拥有工程级别范围。这意味着它们可以在VBA任何模块里使用。
16、用Static关键字声明的变量是特殊的当地变量，静态变量在过程级别声明。静态变量在程序已经不在它们的过程里时仍然不会丢失它们的内容。例如，当一个带有静态变量的VBA过程调用另外一个过程时，在 VB执行完被调用的过程语句后返回主调过程时，静态变量仍然保留它原来的值。
17、因为InputBox函数的结果总是字符串
CSng来将字符串值转换为单精度浮点类型的数字
18、对象变量 Worksheets("Sheet1").Range(Cells(1,1), Cells(10, 5).Select
Set myRange = =Worksheets("Sheet1").Range(Cells(1,1), Cells(10, 5)) Dim myRange As Object
IsObject(myRange)
使用对象变量的好处 n它们可以代替真实对象使用 它们比真实对象更短更容易记住 当过程运行时，你可以改变它们的意义
明确的对象变量 Dim myRange As Range
当对象变量不再需要时，你可以给它赋值Nothing，这将释放内存和系统资源： Set mySheet = Nothing
19、查找变量定义 下Shift+F2 或 视图”－“定义 Ctrl+Shift+F2返回刚才位置
查明变量的类型，使用函数VarType的。
20、常量
Const Age As Integer = 25
21、查找内置常量 视图-对象浏览器