Question

我有列“A1”，列出名称和一些以总计（小计）结尾的名称。我需要一个vba代码来遍历每个单元格，如果单元格包含单词“total”，则清除该单元格，如果没有移动到下一个单元格。这样做直到包含总计的单元格之前的单元格。

使用下面的代码，它只查找总数而不是包含超过“Derek Smith Total”的单元格。我还需要添加它，直到“Grand Total”之前的单元格。

Sub testing101()

    Dim lRow As Long
    Dim iCntr As Long
    lRow = 130
    For iCntr = lRow To 1 Step -1
        If Cells(iCntr, 1).Value = "*total*" Then
           Cells(iCntr, 1).Select
           Selection.ClearContents
        End If
    Next

End Sub

Answer 1

您可以使用Like -

Sub testing101()

    Dim lRow As Long
    Dim iCntr As Long
    lRow = 130
    For iCntr = lRow To 1 Step -1
        With Cells(iCntr, 1)
            If .Value Like "*total*" Then .ClearContents
        End With
    Next

End Sub

Answer 2

子测试101（）

Dim lRow As Long
Dim iCntr As Long
lRow = 130
For iCntr = lRow To 1 Step -1
    With Cells(iCntr, 1)
        If .Value Like "*total*" Then 
           if .Value <> "Grand Total" then.ClearContents
        End If
    End With
Next

End Sub

如果包含该单词，则搜索单词并清除单元格

2 个答案: