If isBlank ThenCells(i,1)=Cells(i-1,1)End If Next i End Sub 以上代码运行后,在 A2:A10 单元格区域,依次判断每一个单元格是否为空,如果是空,则用上一个单元格的值填充。 过程 过程是 VBA 中,程序实际运行的最小结构。单独的一行或多行代码无法运行,必须把它们放置在一个过程里,才能运行。 在示例...
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(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(1, i) = "" Then Cells(2, i) = "无数据" Else Cells(2, i) = "有数据" End If Next End Sub 二、Select…Case语句 1、概念介绍 在武侠世界中,有北乔峰和南慕容势均力敌、旗鼓相当。在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。假如遇到这样的条件:“...
Set rng = Cells(x, 1)Else Set rng = Union(rng, Cells(x, 1))End If Next x rng.Select End Sub Sub 选择行区域()'下面代码选择第一行 Rows(1).Select '下面代码选择2到6行的连续行 Rows("2:6").Select '下面代码选择1到3,5到8的不连续行区域,其中逗号代表不连续,冒号代表连续 Range("1:...
= arr For i = 2 To lastRow For j = lastCol To 3 Step -1 If .Cells(i, j) = 0 Or .Cells(i, j) = "" Then .Cells(i, j).Delete Shift:=xlToLeft End If Next Next End WithEnd Sub代码解析:(1)假设数据源是“源表”,结果表是“目标”表。(2)我们...