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

时间:2019-12-19 21:20:13

标签: excel excel-formula ms-office

我已经承担了清理一堆以最混乱的方式组织的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.

现在,将数据转换为列是没有问题的,因为大多数数据结构都适合,因此每个变量之间有固定数量的单元格行(请参见空格)。我只使用了offset函数,我知道的每14行左右就是清单描述,每16行是位置,每18行是contact,等等,等等。

但是,有时数据在清单之间有时会有一个额外的空白空间或一个更少的空白空间,并且完全弄乱了偏移量(因为挂钩后的所有数据都将向前或向后排一排)。我的问题是:如果我有两行完全相同(例如ROOM FOR RENT),有没有办法我可以固定这些行的所有实例之间的单元格行数,并让excel相应地添加或减去空白行我设定了什么规则?这会帮助我很多。

谢谢!

1 个答案:

答案 0 :(得分:0)

我的建议是使用本机Excel给您的选项! 1.选择包含所有信息的系统 2.a在主功能区中->主页->编辑(一直向右)->查找并选择->转到特殊 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

如果遇到任何问题,请告诉我!