Excel VBAセル内の特定の値を確認する

Question

現在、私の状況に大きな問題があります。私の質問は、そのセルの値が文字列を持っている場合、セルの内容を削除することができる方法はありますか？Total Attachment Size:？

私はこの部分を持っていますが、進める方法はわかりません。ネット上でアイデアを探していたのですが、残念ながらそれでは不十分です。

dim lastrow as integer 
dim ws as worksheet 

set ws = ThisWorkbook.sheets("Sheet1") 

lastrow = ws.cells(rows.count, 8).end(xlup).row 

if ws.range("H" & lastrow) contains `Total Attachment Size: ` then 
    ws.range("H" & lastrow).clearcontents 
    lastrow = ws.cells(rows.count, 8).end(xlup).row 

end if 

ご協力いただきまして誠にありがとうございます。

Answer 1

これは、あなたがすべてHの列の値をチェックしたいならば、私たちはループを実行し、値

Dim str As String 
On Error Resume Next 
str = Application.WorksheetFunction.Search("Total Attachment Size: ",Sheet1.Range("H" & Sheet1.Range("H500000").End(xlUp).Row).Value, 1) 

If Err.Number = 0 Then 

Sheet1.Range("H" & Sheet1.Range("H500000").End(xlUp).Row).ClearContents 

End If