定位整行删除问题

釜底抽薪

SUB
Cells.Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

这是我录取的VBA。 然后在运行的时候提示  不能再重叠的选定区域上使用此命令.

求大神矫正

liangmutou

Sub cs()
  Rows.SpecialCells(xlCellTypeBlanks).Select
  Selection.EntireRow.Delete
End Sub

高

Sub cs()
On Error GoTo 100
Range("f1:f" & Range("a65536").End(xlUp).Row).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
100:
End Sub
这是定位F列 空值

釜底抽薪

liangmutou 发表于 2019-2-14 13:25
Sub cs()
  Rows.SpecialCells(xlCellTypeBlanks).Select
  Selection.EntireRow.Delete

感谢你的帮助

砂海

两句 合并一下
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete