8、If 语句 代码语言:javascript 代码运行次数:0 运行 AI代码解释 If i=2Then '如果i等于2Else End If 9、While语句 代码语言:javascript 代码运行次数:0 运行 AI代码解释 List=1Do While Sheet1.Cells(1,List).Value<>""'遍历Sheet1的单元格A1、A2··,直 '到遇到内容为空的单元格,退出while循环 List...
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 ...
if……then……end if结构 该结构用于单选择判断语句执行，具体用法看下面实例。实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。程序：Sub 判断语句() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" The...
根据学生分数，按照右边的判断标准来确定学生成绩，如果用Excel函数IF函数的话，需要嵌套4个if语句，繁琐且容易出错，这里我们用VBA里面的IF语句，逐句书写，条理清晰，一键判断。代码明细如图中所示，其中的for ...next是个循环语句，不是今天介绍的重点，感兴趣的小伙伴可以留意后面的教程；cells代表单个单元格的意思...
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”语句。假如遇到这样的条件:“...
If Cells(j, i) < 50 Then Cells(j, i).EntireColumn.Hidden = True Next Next End Sub 代码解释: 先设置两个列、行的变量,然后在指定区域遍历,如果某个单元格的数值小于50,那么就将单元格所在的列属性设置为隐藏。 同上再插入一个名为“筛选”的形状并关联到“筛选”宏,这样点击一下“筛选”就可以完成...
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”语句。假如遇到这样的条件:“...
If Cells(j, i) < 50 Then Cells(j, i).EntireColumn.Hidden = True Next Next End Sub 代码解释: 先设置两个列、行的变量,然后在指定区域遍历,如果某个单元格的数值小于50,那么就将单元格所在的列属性设置为隐藏。 同上再插入一个名为“筛选”的形状并关联到“筛选”宏,这样点击一下“筛选”就可以完成...
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”语句。假如遇到这样的条件:“...
Cells = "不及格" Else Cells = "考试无效" End If Next嵌套使用：可以将if语句嵌套使用，以进行更复杂的条件判断。例如，先判断第一个单元格是否为空，再判断其值是否为“VBA教研室”，然后弹出相应的消息框。通过灵活使用这些结构和注意事项，可以在Excel VBA中编写出功能强大的条件判断程序。