删除范围内的空白单元格

Question

我想删除一个范围内的空白单元格 (E1:E130)。

此代码跳过单元格。

For Each cell In ranger
    If cell.Value = "" Then
        cell.Delete
    End If
next cell

为了使我的目标更加明确：我有一个包含文本的单元格列表和 E1:E130 范围内的空单元格，我想制作一个从 E1 开始的列表，没有任何空单元格。
例如，按字母排序也是一个很好的解决方案，但这对我来说也行不通。

Answer 1

我会像下面这样

With Range("E1:E130")
    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftUp
End With