lys338
2005-03-24, 04:01 PM
刪去不需要的欄位改以空白替代
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
如果看見"="就變空白
但如果資料是"==="或"=========".....不等...
該如何寫才是呢??
贊助商連結