Rnd() 生成随机大于0小于1的随机小数，生成随机整数的公式：Int((upperbound - lowerbound + 1) *Rnd + lowerbound)ByVal "按值传递：
Sub Test
(ByRef a
As Integer, ByVal b
As Integer)
a
= 3
b
= 4
End Sub
Sub Main
()
Dim a
As Integer
Dim b
As Integer
a
= 1
b
= 2
test
(a
, b
)
MsgBox
""a
="" & a
& ""b
="" & b
End Sub
ByRef 按地址传递On Error Resume Next 当出现“运行时错误”时，不中断继续运行On Error Goto 0 当出现“运行时错误”时,中断运行Error Error对象保存了“错误信息”CountIf CountIf(“条件区域”, “条件”)Range的CurrentRegion属性 选中遇到的第一个非空行/列前的所有单元格，如：Range(“A1”).CurrentRegion.Copy复制遇到的第一个非空行/列前的所有单元格Range的PasteSpecial属性 粘贴:= 对对象的赋值Range的Iterior属性 指定对象内部Resize函数 "用于调整指定区域的大小，返回调整后的区域，如：Range.Resize(RowSize,ColumnSize)
Sub Y
()
Range
(""B1
:C2
"").Resize
(3:4).
Select
End Sub
表示选择B1:E3三行四列共12个单元格。该区域是以B1为基准，重置三行四列区域。"
