使用Excel VBA删除单元格中的空白行

Question

我的任务是删除单元格内的空白行，而不是电子表格中的空白行。每个单元格中的数据都采用以下结构：

==== Lorem ipsum dolor sit amet，consectetuer adipiscing elit ====

问题：Lorem ipsum dolor sit amet，consectetuer adipiscing elit

==== Lorem ipsum dolor sit amet，consectetuer adipiscing elit ====

问题：Lorem ipsum dolor sit amet，consectetuer adipiscing elit

==== Lorem ipsum dolor sit amet，consectetuer adipiscing elit ====

问题：Lorem ipsum dolor sit amet，consectetuer adipiscing elit

==== Lorem ipsum dolor sit amet，consectetuer adipiscing elit ====

Lorem ipsum dolor坐下来，这是一种不可或缺的精神 Lorem ipsum dolor sit amet，consectetuer adipiscing elit

==== Lorem ipsum dolor sit amet，consectetuer adipiscing elit ====

这只是一个小样本。每个单独的单元格大约有70行，就像它的不同文本一样。没有一致的大小或确切的模式。

我们正在使用Excel 2010.实际的任务是删除每行后面带有“====”的空白行。

我的问题是，这可以在Excel VBA中完成吗？如果是这样，我该怎么做呢？

Answer 1

这样的事情应该有效

dim c as range
for each c in activesheet.range("A1:A100").cells
   c.value = replace(c.value, "====" & chr(10), "==== ") 
next c

...调整范围以适应

Answer 2

我不完全确定你甚至需要循环。这不是同时做同样的事情：

Range("A1:A100").Replace "====" & Chr(10), "==== ", xlPart

......甚至：

Range("A1:A100").Replace Chr(10), " ", xlPart

Answer 3

只需进行简单的搜索和替换即可。按住ALT并按0010键以在搜索和替换框中插入换行符。它不会显示任何东西，但它会在那里。