Excel VBA 笔记使用IF进行逻辑判断

原创

一只大鸽子 2022-07-07 16:41:04 博主文章分类：Excel ©著作权

©著作权归作者所有：来自51CTO博客作者一只大鸽子的原创作品，请联系作者获取转载授权，否则将追究法律责任

使用IF进行逻辑判断
Range单元格对象
IF函数过程控制
使用IF退出For循环

小提示：
新建模块：右键Sheet、插入模块
运行：上面的三角形
注释：' 单引号

使用Range 控制单元格
直接写单元格：Range("a1") = 2
变量i和Range结合，控制单元格：Range（"a"&i）
Dim i As Integer
For i = 1 To 100
Range("a" & i) = i
Next

step 设置步长，默认为1

if 语法：
If Range("e" & i) = "男" Then
Range("f" & i) = "先生"
Else
Range("f" & i) = "女士"
End If

if else：
If Range("b" & i) = "理工" Then
Range("c" & i) = "lg"
ElseIf Range("b" & i) = "文科" Then
Range("c" & i) = "wk"
Else
Range("c" & i) = "cj"
End If

注意if、elseif 后面有then
if的最后有end if
使用Tab缩进可以增加可读性
删除行时下一行会往上跑一行。从下往上删就不会这样。
Sub panduan()
Dim i As Integer
For i = 10 To 1 Step -1
'处理性别
If Range("e" & i) = "男" Then
Range("f" & i) = "先生"
Else
Range("f" & i) = "女士"
End If

'处理专业
If Range("b" & i) = "理工" Then
Range("c" & i) = "lg"
ElseIf Range("b" & i) = "文科" Then
Range("c" & i) = "wk"
Else
Range("c" & i) = "cj"
End If
'删除空白行
If Range("b" & i) = "" Then
Range("b" & i).Select
Selection.EntireRow.Delete
End If

Next