If 条件Then 语句

例如，要删除工作表里面的空行，首先得确认当前单元格为空白的，如果测试的结果为真则继续删

除包含本单元格在内的整行：

If ActiveCell = "" Then Selection.EntireRow.Delete

如果当前单元格不是空白的，VB将忽略关键字Then后面的语句。

如果条件为真，你有时候可能想要执行好几个操作，虽然你可以在同一行加上其它的语句，通过冒

号分隔它们，但是如果你使用多行If…Then语句，你的代码将更清晰，如下：

If 条件Then

语句1

语句2

语句N

End If

例如，当当前单元格的数值大于50时执行一些操作，你可以编写如下指令：

If ActiveCell.Value >50 Then

MsgBox "The exact value is " & ActiveCell.Value

Debug.Print ActiveCell.Adress & ": " & ActiveCell.Value

End If

在上面的例子中，如果当前单元格数值小于等于50的话，那么在关键字Then和End If之间的语句就

If条件Then语句