萌新求助删除空白行的问题

别投，朕还能秀 · 发表于 2023-3-25 09:24

Dim i As Integer
For i = 50 To 15 Step -1
If Cells(i, 5) = "" Or Cells(i, 5) = 0 Then '判断如果第五列有空单元格或者数量是0的单元格，就删掉该行
Sheets("材料表").Rows(i).Delete
End If
Next i

For i = 11 To 7 Step -1
If Cells(i, 5) = "" Or Cells(i, 5) = 0 Then
Sheets("材料表"").Rows(i).Delete
End If
Next i

删除固定区域的空白行，别的行的空白行有用不想删除，我就想到了这个笨办法，但是如果有几百行的话就很卡，
Columns("E:E").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '删除所有空白行，这个不卡，但是把我表格标题栏都删了，求大佬帮我改进下

盼盼198310 · 发表于 2023-3-25 17:17

利用数组循环提取

gwjkkkkk · 发表于 2023-3-25 17:43

Range("E5:E15").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
这里的Columns("E:E")可指定一个范围，如Range("E5:E15")不要指定整列。。。

王彦彬 · 发表于 2023-3-26 09:48

我以前也是用的循环，发现效率太低了，后来改用筛选，删除，取消筛选，效率高了好几倍

bqwd36 · 发表于 2023-3-26 21:08

用数组，如果不为空则加入到数组，最后数组返回到单元格

别投，朕还能秀 · 发表于 2023-3-28 15:02

gwjkkkkk 发表于 2023-3-25 17:43
Range("E5:E15").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
这里的Columns("E:E")可指定一个范围 ...

Range("E5:E15").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
提示RANGE没有个属性方法

ykcbf1100 · 发表于 2023-3-28 16:38

附件供参考。。。

		自动登录	找回密码
密码			免费注册

[求助] 萌新求助删除空白行的问题

评分

评分