从blank行到第2行，以step=1递减，查看Cells(blank,7)是否为空，如果为空就删除第blank行。
Sub 操作()Dim s%, i% '定义s为整数，i为整数 For s = 1 To 8 '遍历1至8，步长缺省，会默认为1 Sheets(s).Select '选中第s张表 For i = Range("B" & Rows.cout).End(3).Row To 2 Step -1 '遍历B列最大行号至2，步长为-1 If Range("D" & i) = "" Then Rows(i).De...
代码运行后 代码如下：Sub 插行()Dim i%, n% '声明两个整型变量 For i = 22 To 2 Step -1 '注意：插行删行都必须逆向遍历 n = Range("A" & i) - 1 '计算应插入的行数n If n > 0 Then Rows(i & ":" & i + n - 1).Insert '插入行 End If Next MsgBox "处理完毕", ...
Worksheets.Application.DisplayAlerts = False For i = 1 To 10 Sheets(1).Delete Next Worksheets.Application.DisplayAlerts = True End Sub '批量删除表方法2 Sub sc2() Dim i As Integer Worksheets.Application.DisplayAlerts = False For i = Sheets.Count To 2 Step -1 Sheets(i).Delete Next Workshe...
sht.SelectFori =100To2Step-1'判断称呼IfRange("E"& i) ="男"ThenRange("F"& i) ="先生"ElseRange("F"& i) ="女士"EndIf'填写专业代号SelectCaseRange("B"&i)CaseIs="理工": Range("C"& i) ="LG"CaseIs="文科": Range("C"& i) ="WK"CaseIs="财经": Range("C"& i) ="CJ"End...
For i=33 to 2 Step -1 27.cells(21,"m")28.合并单元格的方法 Range(单元格，单元格…).Merge...
Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _ "A1"), Unique:=True Sheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ ...
如果Excel表格中A2：A100里面是时间（未排序）可以循环判断每个单元格和Textbox输入的单元格内容，如果表中的内容小于输入数据，就删除整行。代码例子：Sub AA() For i = 7 To 2 Step -1 '假设最后一行是第七行，假设Textbox内容是"7:00" '实际操作可以用Range("A65536").End(xlUp)...
1、For i = 12 To 1 而不是 For i = 1 To 12 2、Step -1声明方向,不可以省略。-1 是反方向的步长值,可以更改,但必须负整数。 Sub gggg() Dim i As Long For i = 12 To 1 Step -1 '注意方向 If Range('a' & i) = '' Then ...
第一种代码：变量递增的 Sub 求1到1000之间偶数和()Dim I, J For I = 0 To 1000 Step 2 J = J + I Next MsgBox "1到1000之间偶数和为" J End Sub 第二种代码：变量递减的 Sub 求1到1000之间偶数和2()Dim I, J For I = 1000 To 1 Step -2 J = J + I Next MsgBox "1...