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

Excel VBA检查单元格中的特定值

1 个答案: