vba - VBA - 错误 13 - 选择大小写 - 文本“*xxx*”

Question

我尝试删除 B 列中不包含特定类型单词的行，但它可以在单词的前面和后面包含所有内容。

Select Case Range("B7:B1048576").Value
    Case "*Transpalette*"
        'do nothing
    Case Else
        Selection.EntireRow.Delete
End Select

标签： vba

Answer 1

Sub Test()
Dim i As Long, Lastrow As Long

Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lastrow To 2 Step -1
Select Case True
    Case ActiveSheet.Range("B" & i).Value Like "*Transpalette*"
    Case Else
    ActiveSheet.Range("B" & i).EntireRow.Delete
End Select
Next i
End Sub

希望以上代码能解决您的疑问