从零开始学习VBA（一）

前置配置设置

首先配置开发设置（不同版本的配置方法会有差异，可根据自己使用的EXCEL版本到网络上找对应的方法，比如直接搜索Excel2010 开发工具）

以下为excel2016配置方法：

操作路径：文件-选项-自定义功能区-勾选开发工具-点击确定

-开启开发工具后要在信任中心中点击宏设置-勾选启用所有宏

 操作完毕后可以发现，已经配置完毕

IF语句

if 条件表达式 Then

条件表达式返回True时要执行的操作和计算

elseif   条件表达式  then

Else

条件表达式返回False时要执行的操作和计算

End If

FOR语句

语法：

For 循环变量 = 初值 To 终值 Step 步长值

循环体（要循环执行的操作或计算）

Next 循环变量名

For i = 1 To 5 Step 1

VBA会让循环变量i的值从1增加到5，每次增加1（每次增加多少，由Step后的数字确定）

For i = 5 To 1 Step -1

注意：当循环变量的终值大于初值时，步长值应设置为正整数，当循环变量的终值小于初值时，步长值该设置为负整数，否则，程序不会执行。

'range代表单元格 不是数值形式的都需要加入双引号
Sub 程序()
For i = 2 To 7
'从第一行到第六行每次步进为1 凡是单元格操作要看行数If Range("B" & i) = "女" ThenRange("C" & i) = "女士"ElseRange("c" & i) = "先生"End IfIf Range("D" & i) >= 90 ThenRange("E" & i) = "优秀"ElseIf Range("D" & i) >= 80 ThenRange("E" & i) = "良好"ElseIf Range("D" & i) >= 60 ThenRange("E" & i) = "及格"ElseRange("E" & i) = "不及格"End If
Next
'if语句必须要有首尾 &表示连接符
End Sub

生成1-100

    'range代表单元格 不是数值形式的都需要加入双引号Sub 程序()For i = 7 To 2 Step -1'凡是涉及删除操作的倒着判断If Range("B" & i) = "女" ThenRange("C" & i) = "女士"ElseRange("c" & i) = "先生"End IfIf Range("D" & i) >= 90 ThenRange("E" & i) = "优秀"ElseIf Range("D" & i) >= 80 ThenRange("E" & i) = "良好"ElseIf Range("D" & i) >= 60 ThenRange("E" & i) = "及格"ElseRange("E" & i) = "不及格"End IfIf Range("A" & i) = "" ThenRange("A" & i).SelectSelection.EntireRow.DeleteEnd IfNext'if语句必须要有首尾 &表示连接符End Sub

生成5个工作表

Sub 新建5张工作表()Dim i As Byte   '也可以定义为整型For i = 1 To 5 Step 1  '从1到5，步长为1时可以省略Worksheets.AddExit For'Exit For 跳出循环Next i     'i可以省略
End Sub

倒序删除

    'range代表单元格 不是数值形式的都需要加入双引号Sub 程序()For i = 7 To 2 Step -1'凡是涉及删除操作的倒着判断If Range("B" & i) = "女" ThenRange("C" & i) = "女士"ElseRange("c" & i) = "先生"End IfIf Range("D" & i) >= 90 ThenRange("E" & i) = "优秀"ElseIf Range("D" & i) >= 80 ThenRange("E" & i) = "良好"ElseIf Range("D" & i) >= 60 ThenRange("E" & i) = "及格"ElseRange("E" & i) = "不及格"End IfIf Range("A" & i) = "" ThenRange("A" & i).SelectSelection.EntireRow.DeleteEnd IfNext'if语句必须要有首尾 &表示连接符End Sub