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