刪去不需要的欄位改以空白替代
Dim CELL1 As Range
Dim STRING1 As String
Set RANGE1 = Range("A1:B1000")
For Each CELL1 In RANGE1
If CELL1.Value = "=" Then CELL1 = ""
Next CELL1
如果看見"="就變空白
但如果資料是"==="或"=========".....不等...
該如何寫才是呢??
 |
|
刪去不需要的欄位改以空白替代
Dim CELL1 As Range
Dim STRING1 As String
Set RANGE1 = Range("A1:B1000")
For Each CELL1 In RANGE1
If CELL1.Value = "=" Then CELL1 = ""
Next CELL1
如果看見"="就變空白
但如果資料是"==="或"=========".....不等...
該如何寫才是呢??
看不懂...
抱歉..
說明不夠詳細
上傳附件說明
請參閱
作者：~GG~
一樣是利用Ctrl+H
不要因為也許會改變
就不肯說那句美麗的誓言
不要因為也許會分離
就不敢求一次傾心的相遇
總有一些什麼會留下來的吧
好讓 好讓那些不相識的人
也能知道我曾經怎樣深深地愛過你
點廣告賺取微薄的零用錢
http://www.neobux.com/?rh=686F6F74736369
v兄說的是, 用[尋找/取代]便可。
謝謝諸位大大的賜教
小弟受惠萬分~~
發表文章規則
| XML | RSS 2.0 | RSS |
本討論區所有文章僅代表留言者個人意見，並不代表本站之立場，討論區以「即時留言」方式運作，故無法完全監察所有即時留言，若您發現文章可能有異議，請 email：[email protected] 處理。
回覆時引用此文章
書籤