刪除單元格的內容 - VBA初學者

Question

我想編寫代碼來清除其中有一個引號「作爲第一個字符B列任何單元格的內容任何幫助是極大的讚賞

Answer 1

。試想一下：

Sub KlearUp() 
    Dim rng As Range, r As Range, rKill As Range 
    Set rng = Range("B:B").Cells.SpecialCells(xlCellTypeConstants) 
    For Each r In rng 
     If Left(r.Value, 1) = Chr(34) Then 
      If rKill Is Nothing Then 
       Set rKill = r 
      Else 
       Set rKill = Union(r, rKill) 
      End If 
     End If 
    Next r 

    If rKill Is Nothing Then 
    Else 
     rKill.Clear 
    End If 
End Sub 

編輯＃1：

如果單元格包含公式，而不是常量，則更換：

Set rng = Range("B:B").Cells.SpecialCells(xlCellTypeConstants) 

有：

Set rng = Range("B:B").Cells.SpecialCells(xlCellTypeFormulas)