在VBA中，`If`语句用于根据特定条件执行不同的代码块。以下是`If`语句的基本用法和一些示例：
基本语法
```vba
If condition Then
' 如果条件成立，执行这里的代码
Else
' 如果条件不成立，执行这里的代码（可选）
End If
```
多条件判断
使用`And`关键字连接多个条件，所有条件都必须为真时，才会执行`If`语句中的代码块：
```vba
If condition1 And condition2 And condition3 Then
' 所有条件都成立时执行的代码
End If
```
使用`Or`关键字连接多个条件，只要有一个条件成立，就会执行`If`语句中的代码块：
```vba
If condition1 Or condition2 Or condition3 Then
' 任意一个条件成立时执行的代码
End If
```
使用嵌套的`If`语句，需要所有内部条件都成立时，才会执行最外层的`If`语句中的代码块：
```vba
If condition1 Then
If condition2 Then
' 所有内部条件都成立时执行的代码
End If
End If
```
多分支判断
使用`ElseIf`关键字来判断多个条件，并在满足某个条件时执行相应的代码块：
```vba
If condition1 Then
' 条件1成立时执行的代码
ElseIf condition2 Then
' 条件2成立时执行的代码
Else
' 所有条件都不成立时执行的代码（可选）
End If
```
省略写法
如果`If`语句后面只有一行代码，可以省略`Then`和`End If`：
```vba
If condition Then
' 只有一个语句时，可以省略Then
End If
```
在循环中使用`If`语句
在`For`或`While`循环中使用`If`语句，可以根据条件执行不同的操作：
```vba
For i = 1 To 10
If i Mod 2 = 0 Then
' i为偶数时执行的代码
Else
' i为奇数时执行的代码
End If
Next i
```
```vba
Sub Example()
Dim score As Integer
score = 75
If score >= 90 Then
MsgBox "优秀"
ElseIf score >= 80 Then
MsgBox "良好"
ElseIf score >= 60 Then
MsgBox "合格"
Else
MsgBox "不合格"
End If
End Sub
```
在这个示例中，根据`score`的值，会弹出一个相应的消息框显示评价结果。
希望这些示例和解释能帮助你更好地理解和使用VBA中的`If`语句。