自动设置两个相同变量之间的Excel单元格行数？

Question

我的任务是清理一堆以最混乱的方式组织的 excel 数据。 我正在查看一堆房地产列表，但数据提供者不是按列组织所有内容，而是按行组织所有内容。 例如：

Listing 1:

ROOM FOR RENT

blank row

LOCATION

blank row

DATE 

blank row

ADDRESS 

blank row

DESCRIPTION

blank row

CONTACT

blank row

blank row

blank row

Listing 2:

ROOM FOR RENT

and so on.

现在，将数据转换为列是没有问题的，因为大部分数据结构都是合适的，因此每个变量之间有固定数量的单元格行（参见空格）。 我只是使用偏移函数，我知道的每 14 行左右是列表描述，每 16 行是位置，每 18 行是联系人等。

然而，数据会时不时地在列表之间多出一个空格或少一个空格，这完全搞砸了偏移量（因为故障后的所有数据都将向前或向后一行）。 我的问题是：如果我有两行完全相同（例如，ROOM FOR RENT），有没有办法可以固定这些行的所有实例之间的单元格行数，并让 excel 相应地添加或减去空白行我设定的任何规则？ 这对我有很大帮助。

提前致谢！

Answer 1

我的建议是使用本机 Excel 为您提供的选项！ 1. 在主功能区中选择包含所有信息 2.a 的 culomn -> Home -> Editing（一直向右）-> find & select -> GoTo Special 2.b在菜单中选择“空白”，现在A列中的所有空白单元格都已被选中。 3.主功能区->主页->单元格（就在编辑的左边）->删除->删除工作表行

现在您只有填充数据的连续单元格！ 这也可以用 vba 来完成，应该看起来像这样按 Alt+F11 打开 vba 编辑器，在项目窗口中左键单击 -> 插入 -> 模块

复制并粘贴以下代码应该可以正常工作！

Sub Delete_empty_rows ()

Dim c as long

For Every C in Range("A:A")
      If c = "" Then Rows(ActiveCell.Row).EntireRow.Delete
  End if
Next c

End Sub

如果您遇到任何问题，请告诉我！