セル内の値を見つけて削除するにはどうすればいいですか？

Question

範囲内の値を見つけて、その値を削除したいとします。

私は値を探していますが、見つかった値ではなく他のセルを削除するコードを見つけました。

これはコードです：

Private Sub CLEAROLD_Click() 

'PURPOSE: Clear out all cells that do not contain a specific word/phrase 

Dim Rng As Range 
Dim cell As Range 
Dim ContainWord As String 

'What range do you want to search? 
Set Rng = Range("AA2:AC25") 

'sub for the word 
shorttext = traintype1.Value & number1.Value 

'What phrase do you want to test for? 
ContainWord = shorttext 

'Loop through each cell in range and test cell contents 
For Each cell In Rng.Cells  
    If cell.Find(ContainWord) Is Nothing Then cell.ClearContents 
Next cell 

End Sub 

私はif条件を変更しようとしましたが、私はそれを動作させることはできません。

Answer 1

For Each cell In Rng.Cellsを使用して範囲のセルをループするので、セルの値を直接ContainWordと比較できます。

は交換してください：付き

If cell.Find(ContainWord) Is Nothing Then cell.ClearContents 

：

If cell.Value2 = ContainWord Then cell.ClearContents 

Answer 2

は、あなたがどのような変更を行ったの置き換え機能

rng.Replace What:=shorttext, Replacement:="", LookAt:=xlWhole, _ 
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
       ReplaceFormat:=False