在VBA的IF语句中使用通配符遇到问题求助

我来帮你搞定这个VBA问题！你的代码主要有两个关键问题，导致它无法正常工作：

问题1：通配符匹配方式错误 #

VBA里直接用=运算符没法识别*这类通配符，要匹配以HFMWO开头的内容，得用Like运算符才行。

问题2：循环删除行的方向错误 #

如果你的循环是从第一行往下遍历，删除行之后，后面的行会自动上移，导致你跳过了下一行的检查。所以必须从最后一行往前倒着循环。

修正后的完整代码 #

Sub CopyAndDeleteHFMWORows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim K As Long
    Dim J As Long
    
    ' 设置要操作的工作表（可替换为具体表名，比如Sheet1）
    Set ws = ActiveSheet
    ' 获取E列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    ' 初始化J为目标表的最后一行，避免覆盖已有数据
    J = Worksheets("Facilities").Cells(Worksheets("Facilities").Rows.Count, "A").End(xlUp).Row
    
    ' 倒序循环，防止删除行后索引错乱
    For K = lastRow To 1 Step -1
        With ws
            ' 用Like匹配所有以HFMWO开头的内容
            If .Cells(K, "E").Value Like "HFMWO*" Then
                J = J + 1
                ' 复制整行到Facilities表的下一行
                .Rows(K).EntireRow.Copy Destination:=Worksheets("Facilities").Range("A" & J)
                ' 删除当前行
                .Rows(K).EntireRow.Delete
            End If
        End With
    Next K
End Sub

关键改动说明 #

• Like "HFMWO*"：准确匹配所有以HFMWO开头的单元格，不管后面跟着任意长度的数字或字符
• 倒序循环For K = lastRow To 1 Step -1：确保每一行都能被检查到，不会因为删除行导致后续行被跳过
• 初始化J的逻辑：先获取Facilities表的最后一行，复制的内容会自动接在已有数据之后，不会覆盖原有内容

如果你的代码原本嵌套在某个With块中，只需要把ws替换成你原来的工作表对象即可，核心的匹配和循环逻辑不变。

内容的提问来源于stack exchange，提问作者Mohd Reza