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...
可以将上述代码复制到Excel的VBA编辑器中(按下Alt + F11打开VBA编辑器),然后运行DeleteEmptyRows宏即可删除Excel表中的空行。 注意事项: 在运行代码之前,建议先备份Excel表格,以防误操作导致数据丢失。 代码中的Rows(i).Delete语句会直接删除行,删除后无法恢复,请谨慎操作。 希望以上回答能够满足您的需求,如果还有...
Sub DeleteEmptyRows() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Rows.Delete Next ws End Sub ``` 第三步:关闭VBA编辑器 🚫 完成代码的复制粘贴后,关闭VBA编辑器,回到Excel界面。 第四步:运行宏 🏎️ 现在,按下快捷键Alt+F8,打开宏对话框,选择刚刚创建的DeleteEmptyRows宏,然后...
SubDeleteEmptyRows() SelectedRange = Selection.Rows.Count ActiveCell.Offset(0,0).SelectFori =1ToSelectedRangeIfActiveCell.Value =""ThenSelection.EntireRow.DeleteElseActiveCell.Offset(1,0).SelectEndIfNextiEndSub 请注意,您可以选择一列单元格,然后运行此宏来删除所选列中具有空白单元格的所有行。
宏代码如下：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...
...'VBA删除空白列 Sub DeleteEmptyRows() Dim LastRow As Long, r As Long LastRow = ActiveSheet.UsedRange.Rows.Count...'得到所使用区域的总行数 LastRow = LastRow + ActiveSheet.UsedRange.Row - 1 '使用区域的总行数+所使用区域的开始第1行用-1...)或数组中包含数据的单元格的数目为0,则删除这...
Sub DeleteEmptyRows2() Dim LastRow As Long, r As Long, Counter As Long Application.ScreenUpdating = False LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1 For r = LastRow To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r)...
```vba Sub DeleteEmptyRows() Dim ws As Worksheet Dim lastRow As Long Dim i As Long' 设置工作表 Set ws = ThisWorkbook.Sheets("Sheet1")' 获取数据表格的最后一行 lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row' 遍历每一行,检查是否存在空行...
SubDeleteEmptyRowsWithinTable()DimobjTable As TableDimobjRow As RangeDimobjCell As CellDimiCounter As LongDimlngNumRows As LongDimstrStatusBar As StringDimblnTextInRow As Boolean '指定想要操作的表格SetobjTable = Selection.Tables(1)'设置变量指向...
Sub DeleteEmptyRow() '删除第2行到第95行之间C列后没有值的空行 Dim i As Integer For i = 94 To 12 Step -1 If Cells(i, 3) = "" Then Sheets("sheet1").Rows(i).Delete End If Next i End Sub '删除第6行没有值的空列 Sub DeleteEmptyColmn() ...