删除范围内的空白单元格>>

Question

我要删除范围内的空白单元格（E1：E130）。

此代码跳过单元格。

For Each cell In ranger
    If cell.Value = "" Then
        cell.Delete
    End If
next cell
为了使目标更清楚：我有一个单元格列表，其中包含文本和空单元格，范围为E1：E130，我想从E1开始创建一个列表，其中不包含任何空单元格。例如，按字母排序也是一个很好的解决方案，但是对我来说也不可行。

我要删除范围（E1：E130）中的空白单元格。此代码跳过单元格。对于Ranger中的每个单元格如果cell.Value =“”然后cell.Delete End如果下一个单元格使我的目标更多...

Answer 1

我会按照以下说明去做

Answer 2

您可以使用Range.SpecialCells Method一次删除特定范围内的所有空白单元格：

Answer 3

您可以尝试使用此代码来删除定义范围内的空白单元格：

Answer 4

这应该起作用：

Answer 5

此处略过一个老问题，但是：OP，我不确定您的问题（“针对范围内的每个单元格”未删除所有所需的单元格）是由以下原因引起的，但是在我了解Range（...）之前，我写了“ for循环” '负责这项任务。