37 删除空行:排序处理方案Delete Blank Rows: Sorting Sub mynzMoveBlankRowsToBottom() '排序处理方案 Dim myRange As Range Set myRange = Rows("1:" & ActiveSheet.UsedRange.Rows.Count) '假设列表有标题 With myRange .Sort Key1:=.Cells(2, 1), Order1:=xlAscending, _ Header:=xlYes, OrderCustom...
Sub DeleteBlankRows() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号 For i = lastRow To 1 Step -1 ' 从最后一行开始往上遍历 If WorksheetFunction.CountA(Rows(i)) = 0 Then ' 判断当前行是否为空白 Rows(i).Delete ' 删除当前...
Sub DeleteBlankRows() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 从第一列最后一个单元格向上查找,直到找到第一个非空白单元格,返回这个单元格所在的行数,赋值为lastRow For i = lastRow To 1 Step -1 ' 从lastRow行开始向上依次循环 If Application.Cou...
宏代码如下：Sub mynzDeleteEmptyRows()Dim Counter Dim i As Integer Counter = InputBox("输入要处理的总行数!")ActiveCell.Select For i = 1 To Counter If ActiveCell = "" Then Selection.EntireRow.Delete Counter = Counter - 1 Else ActiveCell.Offset(1, 0).Select End If Next i End...
For i = LRow To rRow Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next End Sub 代码解析：MyDelBlankRow过程删除工作表中已使用的区域的所有空行。a) 第5行代码获得工作表中已使用区域的首行行号，其中使用UsedRange属性返回工作表中已使用的区域。b) 第6...
1、打开要删除空白行的文档。2、Alt+F11打开VB编辑器，右键新建一个模块。3、新建模块后，输入 Sub 删除空行()Dim a a = 1 Do While Cells(a, "a") <> ""If Cells(a, "D") = "" Then Rows(a).Select Selection.Delete Shift:=xlUp Else a = a + 1 End If Loop End Sub。4、...
1-1需删除空行的工作表区域 #001 Sub DelBlankRow() #002 Dim rRow Long#003 Dim LRow Long#004 Dim Long#005 rRow Sheet1.UsedRange.Row#006 LRow rRowStep -1 #008 #009Rows(i).Delete #010 End #011Next #012 End Sub 代码解析: DelBlankRow 过程删除工作表中已使用的区域的所有空行。 行...
' loop to iterate through rows For i = 1 To Rows ' check if the first column is blank If Sheets("Wonders").Cells(i, 1).Value = "" Then ' delete that row if first column of the row is blank Rows(i).Delete End If Next
-1 If Cells(i, 2) = "" Then Rows(i & ":" & i).Delete Shift:=xlUp NextEnd SubSub delblank()On Error Resume NextColumns("B:B").SpecialCells(xlCellTYpeBlanks).Entirerow.DeleteEnd subSub 空值则删除整行()With ActiveSheetFor i = .[a65536].End(3).Row To 1 Step -...
ScreenUpdating = False Set sht = ActiveSheet With sht lastRow = .UsedRange.Rows.Count '//取得最后行号 For i = 1 To lastRow If Len(.Range("A" & i).Value) = 0 Then .Range("A" & i).EntireRow.Delete shift:=xlUp '//删除行 Next End With Application.ScreenUpdating = True End Sub ...