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 End WithEnd Sub ...
For i = 2 To 15 Step 1 If Range("A" & i) >= 60 Then Range("B" & i).Value = "及格" Else Range("B" & i).Value = "不及格" End If Next i End Sub操作过程:四、Do-While语句 还是上面例3。 ③VBA法,do-while循环语句: ...
。。。那么,如果有两个条件怎么办?从以上,我们⼜可以读出:1、当有两个条件时,我们直接可以⽤Else表⽰另外的情况;2、当多条件判断时,If Then不换⾏的情况,将不会存在;显然,在实际⼯作中,显⽰不只两个条件。那,我们对多条件判断,⼜将如何应对?我们来看代码 ...
另外If语句还可以进行多条件分支即If-Then-ElseIf语句。该语句的分支数量可以根据程序员的特定需求添加任意多个ElseIf条件分支,该语句的调用格式如下: If 条件表达式1 Then 执行语句1 ElseIf条件表达式2 Then 执行语句2 …… Else 执行语句n End If 示例: 结果: 就像我们人生充满着很多选择一样,VBA语句的选择语句...
使用VBA的If Then判断实现的代码如下:Sub jige()For i = 2 To 10 '判断成绩小于60则为不及格 If Cells(i, 4) < 60 Then Cells(i, 5) = "不及格"End If '判断成绩大于等于60则为及格 If Cells(i, 4) >= 60 Then Cells(i, 5) = "及格"End If Next End Sub 这里的For循环为了循环表中...
注意,与For-Next循环不同的是,在进入循环之前,需要先给变量i赋初始值。在循环中,还需要能够增加变量的值。 示例2:下面的代码使用Do Until循环求1至100的和,并显示结果。 Sub DoUntil2() '声明变量 Dim i As Integer Dim sum As Integer '给变量赋初值 ...
1.使用For循环方法 '定义num储存行号的变量,i循环变量 Dim num, i '将Excel最大行号赋值给变量 num = Rows.Count '开始循环并判断,找出最后有值的单元格 For i = 1 To num If Range("a" & num) <> "" Then Exit For End If num = num - 1 Next '输出num,也就是得到的行号 MsgBox num 执行...
If myNum < 5 Then '如果myNum值小于5时退出循环 Exit For End If Next MsgBox "The total is " & Total '显示累加的Total变量的数值 End Sub For Each…Next语句 For Each…Next语句作用于集合中的每个对象或是数组中的每个元素。当循环执行一次VBA会自动设置一个变量,例如:Sub ForEachSheet()Dim ...
group中不再有元素时,退出循环并继续执行“Next”语句后的语句。可以将任意数量的Exit For语句作为另一种退出方式放置在循环中的任何位置。"退出" 通常在评估某些条件后使用, 例如,if…then…, 将执行下一个紧接着的语句。可通过将“For Each...Next”循环放置在另一个该循环内来嵌套“For...Each...Next”...
For i = 1 To 10 If Cells(1, i) = "" Then Cells(2, i) = "无数据" Else Cells(2, i) = "有数据" End If Next End Sub 二、Select…Case语句 1、概念介绍 在武侠世界中,有北乔峰和南慕容势均力敌、旗鼓相当。在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。