1. If语句 If语句是 Excel VBA 中最基本的条件语句,用于根据条件来执行不同的代码块。它的语法如下: ``` If 条件 Then 代码块 ElseIf 条件 Then 代码块 Else 代码块 End If ``` 2. Select Case语句 Select Case语句是用于根据不同的条件执行不同的代码块的语句。它的语法如下: ```
结构：If Cells <> "" Then MsgBox "单元格不为空" End Subif……then……end if结构：For i = 1 To 10 If Cells = "" Then Cells = "VBA教研室" Exit For End If Nextif……then……else……end if结构：For i = 1 To 2 If Cells = "" Then Cells = "false" Else Cells =...
2 写好一个简单的循环后，就需要写出跳出循环的代码，当然对于跳出循环需要加入一个判断条件，以便可以将跳出循环结果显示出来，如下图所示：3 循环代码如下：Dim i As IntegerFor i = 2 To 11 Sheet1.Cells(i, 1) = i + 11 If i = 8 Then Sheet1.Cells(i, 4) = i + 11 Exit For E...
3、循环删除空白行：Sub 循环删除空白行() Dim ws As Worksheet Dim lastRow As Integer Set ws = ThisWorkbook.Sheets("表3") With ws lastRow = .UsedRange.Rows.Count For i = lastRow To 1 Step -1 If .Cells(i, 1) = "" Then Rows(i).Delete End If Next ...
编写第一个VBA宏 「宏」:简单的说,宏是一段可以运行的 VBA 代码片段。 step one 创建启用宏的工作簿 首先新建一个工作簿,并将工作簿保存为「启用宏的工作簿」类型。详细步骤查看这篇文章。 step two 打开 VBA 编辑器 通过功能区「开发工具 → 代码→Visual Basic」或快捷键 Alt + F11 打开 VBA 编辑器。
IfRange("A" & i) = "" Then Exit For'当不满足条件时,退出For循环 End If Rows("1:1"). Select Application. CutCopyMode = False Selection. Copy Range("A" & i). Select Selection.Insert Shift:=xlDown Next End Sub Sub gzd() Dim i As Integer ...
VBA教研室" Exit For End If Next End Sub if ……then……else……end if结构 该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析 实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出false，否则输出Ture 程序： Sub 判断语句...
实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。程序：Sub 判断语句() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" Then Cells(i, 2) = "VBA教研室" Exit For End If Next End Sub if ……...
[Exit Do] [语句块] Loop [Until条件语句] 说明: 按照惯例,方括号中的内容表示可选项。 条件语句可以放在循环的开始处或者结尾处。如果放在开始处,那么先评估条件,若不满足条件要求,就执行循环里面的语句;这种情况下,当始终满足条件时,就有可能一次也不会执行循...
Exit For End If Next MsgBox "The total is " & Total '显示累加的Total变量的数值 End Sub For Each…Next语句 For Each…Next语句作用于集合中的每个对象或是数组中的每个元素。当循环执行一次VBA会自动设置一个变量，例如：Sub ForEachSheet()Dim wkSheet As Worksheet 'wkSheet定义为工作表类型的变量 ...