根据表中的字符进行判断，删除行

来源：百度知道 编辑：UC知道 时间：2024/05/20 22:46:03
一张表格中当有许多行是我不需要的数据，我想实现根据每行当中如有“市场”或每行中有“45678”或有"ABC"这个样的字符就保留此行，其它不具体上述三种条件的的行都一次性删除。请大家帮助写一段VBA。

首先你的列要确定，如列2，若不确定则用一个循环条件再加以控制
Sub Delete_Row()
iRows = ThisWorkbook.Worksheets(1).[A1].CurrentRegion.Rows.Count
For i = 1 To iRows
If Cells(i, 2) <>“市场” or Cells(i, 2) <>“45678” Then
Rows(i).Delete
Else
End If
Next i
End Sub

delect from 表 where 字段="市场"
delect from 表 where 字段="abc"
delect from 表 where 字段=45678