使用Excel VBA

Question

1'm與電子表格中的單元格內除去空白行本身，而不是空行的任務刪除小區內的空行。每個單元中的數據是，在該結構中：

==== Lorem存有胡蘿蔔，提高本科顯影劑====

問題：Lorem存有胡蘿蔔，提高本科顯影劑

==== Lorem存有胡蘿蔔，提高本科顯影劑====

問題：Lorem存有胡蘿蔔，提高本科顯影劑

==== Lorem存有胡蘿蔔，提高本科顯影劑= ===

問題：Lorem存有胡蘿蔔，提高本科開發商

==== Lorem存有胡蘿蔔，提高本科開發商====

Lorem存有胡蘿蔔，提高本科開發商 Lorem存有胡蘿蔔，提高本科開發商

==== Lorem存有胡蘿蔔，提高本科開發商====

這只是一小部分。每個單獨的小區大約有70不同的文字，就像它的線條。沒有一致的大小或精確模式。

我們使用Excel 2010中的實際任務是用「====」到它在每行後刪除空行。

我的問題是，可以在Excel VBA來完成，如果是，如何去1編碼的呢？

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

1'm不能完全肯定你甚至需要循環。這不會做同樣的事情一下子：

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

...甚至：

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

Answer 3

只是做一個簡單的搜索和替換。按住Alt鍵並按下0010，插入在搜索中換行符和替換對話框。它不會顯示任何東西，但它會在那裏。