VBA代码整理（刚学，边听课边梳理）后续重整

Sub abc()
……

End Sub

---

---

Dim 变量名 As 数据类型
Dim i as integer

• > Integer 整型 （整型数据能表示的数据范围：-32768 ~ 32767）
• > Long 长整型 （长整型数据能表示的数据范围：-2147483648 ~ 2147483647）
• > Single 单精度浮点型

  ……（单精度浮点型能表示的数据范围
  …… 在表示负数时： -3.402823E38 ~ -1.401298E-45
  ……在表示正数时： 1.401298E-45 ~ 3.402823E38）

• > Double 双精度浮点型
  ……双精度浮点型能表示的数据范围
  ……在表示负数时： -1.79769313486231E308 ~ -4.94065645841247E-324
  ……在表示正数时： 4.94065645841247E-324 ~ 1.79769313486231E308

---

---

Const 常量名 As 数据类型 = 常量值
Const h As Integer = 18

---

---

dim i as 数据类型
For i= 1 to 10
……
Next

---

Exit for

退出循环

---

IF……Then
……
Else
……
End IF

IF……Then
……
ElseIF
……
End IF