Sub Test()
Range("D3:D5")=""
[B3:D5]="DEF"
Cells(7，3)=999
Rows("6").Select
Colunms("B").Select
End Sub
选中所在区域
Sub Test()
Range("C11").CurrentRegion.Select
End Sub
复制
Sub Test（）
Dim i As Integer
For i =1 To 10
Range("C4").Copy Destination:=Range("G"&i)
Next i
End Sub
声明一个整数变量i
Dim i As Integer
Dim i As Integer i=5
VBA的数据类型
常量（字面量）
通过字面获得含义 5 “abc”True
通过字面获得类型 整 字 布尔
变量
无法通过字面获知信息
声明其类型
声明其名称
Excel内置的基本类型
布尔类型
Boolean
整数类型
一个字节：Byte（0到255）
两个字节：Integer（-32768到32767）
Long
浮点数类型
小数：Single
Double
字符类型
String
“abc”
abc是变量
日期类型
Date
货币类型
Current
对象类型
Object
可变类型（万能类型）
Variant
占空间大
Dim i As Varriant
变量数据类型
Sub test()
Dim i As integer
i=1+1
Debug.Print(i)
End Sub
Dim变量名
As数据类型
表达式
操作数
常量
变量
表达式
运算符
取余：mod
异或：Xor
等价：Eqv
蕴含：Imp
组合字符串：&
组合字符串：+
赋值运算符
选择结构
单分支
Sub Test（）
If Range("B3")>500 Then
Range("B3").Copy Destination:=Range("C5")
End If
End Sub
双分支
Sub Test（）
If Range("B3")>500 Then
Range("B3").Copy Destination:=Range("C5")
Else
Range("B3").Copy Destination:=Range("E8")
End If
End Sub
多分支
Sub Test（）
Dim i As Integer
i=2
For i =2 To 8
if range("B"&i)>90 Then
range("C"&i)="Excellent"
ElseIf Range("B"&i)>60 Then
Range("C"&i)="Good"
Else
Range("C"&i)="BAD"
End If
End Sub
Select Case多分支
Sub selectTest()
Select Case Range("B2")
Case Is >=90
Range("C2")="优秀"
Case Is>=80
Range("C2")="良好"
Case Else
Range（"C2"）="不及格"
End Select
End Sub
循环结构For..Next
Sub Test()
Dim i As Integer
For i =2 To9
Select Case Range("B"&i)
Case Is >=90
Range("C"&i)="优秀"
Case Is>=80
Range("C"&i)="良好"
Case Else
Range（"C"&i）="不及格"
End Select
Nest i
End Sub
For Each...Next对象集合
Sub Test()
Dim ws As Worksheet
For Each was In Worksheets
ws.Name=ws.Name&"ing"
Next
End Sub
(所有表名都加ing)
