【求助】刪去不需要的欄位改以空白替代

lys338

刪去不需要的欄位改以空白替代

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~

看不懂...

lys338

抱歉..
說明不夠詳細
上傳附件說明
請參閱

引用:

作者: ~GG~

看不懂...

vvcvc

一樣是利用Ctrl+H

leonchou

v兄說的是, 用[尋找/取代]便可。

lys338

謝謝諸位大大的賜教
小弟受惠萬分~~

lys338 會員	【求助】刪去不需要的欄位改以空白替代刪去不需要的欄位改以空白替代 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 如果看見"="就變空白但如果資料是"==="或"=========".....不等... 該如何寫才是呢??
	回覆

leonchou Take it easy~	v兄說的是, 用[尋找/取代]便可。
	回覆

vvcvc 親愛的OP找我們時	一樣是利用Ctrl+H
	回覆