一、循环

For 初始化变量To循环次数，用Next结尾
注：循环完后，i变量是20

//循环20次
For i = 1 To 20
……
Next

//循环20次
i = 20
For i = 1 To i
……
Next

Do While 判断条件，Loop结尾

//死循环
Do While 1
……
Loop
//在里面可以加变量
Do While 1
……
If cz = "" Then
Exit Do//跳出while循环，for跳出for循环
End If
i = i + 1
Loop

vb没有c语言的continue跳出本次循环
可以用goto来跳转实现跳出本次循环

Do While 1
e:
……
If cz = "" Then
GoTo e//跳转位置，实现跳出本次循环
End If
i = i + 1
Loop

二、选择判断

If 条件 Then，例如

If s = "1" Then
……
ElseIf s = "0" Then
……
Else
……
End If

注：如果执行内容多，可以用末尾加：连接

vb的逻辑等于和赋值都一样是=
不等于<>
大于等于>=

三、表格内容读取和字符串拆分

Split（拆分变量，标志）（要第几个内容0是第一个标志的前面内容）

ys = Cells(i + 1, 5)
ys1 = Split(ys, " ")(0)
Cells(i + 1, 4) = ys1

表格内容的输入输出
可以使用Cells（行，列）
或下面的方法
Range(“F1”).Select
ActiveCell.FormulaR1C1 = “W”

四、琐碎内容

1.使用对话框输入变量内容
str123 = InputBox("输入内容", "插座", 0)
Windows("模板.xlsx").Activate//跳转到模板.xlsx Excel文件
Sheets("ww").Select//跳转到工作簿ww

2.定义变量
Dim str2 As String//字符型
Dim shu2 As Long//长整型
Dim n As Integer//整型

3.计算字符串长度

shu1 = Len(str1)