嘿，这个问题我之前帮同事处理过好几次，Excel里搞定这种特定格式的筛选/删除其实挺简单的，给你三个实用的方案，按需选就行：

不用写公式，直接靠通配符匹配格式就能搞定：

• 选中B列表头，点击「数据」选项卡的「筛选」按钮，给B列加上筛选箭头
• 点击B列的筛选箭头，选择「文本筛选」→「自定义筛选」
• 在弹出的对话框里，选择「等于」，然后输入框里填 ??#####
  简单解释：? 代表任意单个字符，前两个??匹配开头的两位字母；#是Excel的数字通配符，五个#####精准匹配结尾的五位数字
• 确定后，显示的就是符合格式的单元格。你可以直接选中这些行删除，或者反选保留其他数据（右键→「选择」→「可见单元格」，取消筛选后选中剩余行删除即可）

如果需要先标记再处理，加个辅助列更灵活：

• 比如在C1单元格输入表头「是否符合格式」
• 在C2单元格输入公式：=AND(LEN(B2)=7,ISNUMBER(--RIGHT(B2,5)),NOT(ISNUMBER(--LEFT(B2,2))))
  拆解下公式逻辑：
  • LEN(B2)=7：确保单元格总长度是7位（2字母+5数字）
  • ISNUMBER(--RIGHT(B2,5))：取最后5位转数字，验证结尾是有效数字
  • NOT(ISNUMBER(--LEFT(B2,2)))：取前2位转数字后取反，验证开头不是数字（即两位字母）
• 下拉填充公式到所有行，C列显示TRUE的就是目标单元格，之后可以筛选TRUE行删除，或者保留FALSE行

如果B列有几万行数据，手动操作太慢，用VBA一键搞定：

• 按下Alt + F11打开VBA编辑器
• 右键左侧的工作簿名称，选「插入」→「模块」
• 粘贴以下代码：

Sub RemoveTargetFormat()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet ' 可以改成你的工作表名，比如Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从下往上遍历，避免删除行导致索引错乱
    For i = lastRow To 2 Step -1
        If Len(ws.Cells(i, "B").Value) = 7 Then
            If Not IsNumeric(Left(ws.Cells(i, "B").Value, 2)) And IsNumeric(Right(ws.Cells(i, "B").Value, 5)) Then
                ws.Rows(i).Delete
            End If
        End If
    Next i
End Sub

• 按下F5运行代码，自动删除所有符合格式的行。注意：运行前务必备份数据，避免误删！

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