如何将表格的空格删除？

壹号公馆

如何将标识黄色表格全部删除，如果全选表格，再定位空值，只能将所有的表格全部删除，有没有好办法？

祝洪忠-

选中A5:A20单元格区域，定位 空值 ， 右键 删除 整行

良良

K5=MOD(ROW(),2)，下拉至K20，筛选0值，选中整行，删除。

leepoison

1. Sub DeleteEmptyRowsFromFifth()
   
2.     Dim ws As Worksheet
   
3.     Dim LastRow As Long
   
4.     Dim i As Long
   
5.    
   
6.     Set ws = ThisWorkbook.Sheets("Sheet1")
   
7.     LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
   
8.    
   
9.     For i = LastRow To 5 Step -1
   
10.         If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
    
11.             ws.Rows(i).Delete
    
12.         End If
    
13.     Next i
    
14. End Sub
    

复制代码

忙到飞起

按单元格颜色排序或者是筛选之后直接删除。

安然天涯

选中单元格区域，定位空值，删除即可