VBA 在某个单元格中查找“/”或“-”

Question

我想编写一个代码来删除特定列中包含斜线的行。例如，如果在 H 列中，第 7 行出现斜杠，则删除第 7 行。在有空白单元格和有单词的情况下，我能够删除，但带有斜杠的内容不正确。

Rng.AutoFilter field:=8, Criteria1:="/"
Rng.Offset(1,0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

ActiveSheet.AutoFilterMode = False

我尝试使用“//”和“@/”代替“/”，但没有用。

我想做一个if语句，这样如果单元格中有一个数字包含数字和“-”，单元格的值将被复制到另一个地方。我找不到将连字符合并到条件句中的方法。一个例子：12345-6789.

谢谢你:)

Answer 1

这对我有用：

Sub tester()
    With [A1].CurrentRegion
        .AutoFilter field:=8, Criteria1:="=*/*"
        On Error Resume Next 'in case no matches
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    End With
    ActiveSheet.AutoFilterMode = False
End Sub

VBA 在某个单元格中查找“/”或“-”

VBA finding "/" or "-" in a certain cell

excel

vba

slash

hyphen