标题：[求助]这样的要求在狐表中如何完成？

如图大家看一下。我有一个这样的数据。35000行。现在要删除不要的数据。删除的规则是如图片。型号列后面的三位数量如果不是070-072的话。都要删除。这个应该如何操作？注意不能筛选。如果筛选的话在型号列减号（-）前面也有是070或者071或者072的。

这个很简单啊，直接删除后面位是070,071,072的就行了

with tables("Sheet1")

for i as integer = 0 to .rows.count-1

    if .rows(i)("型号").split("-")(1) = "071" orelse .rows(i)("型号").split("-")(1) = "072" orelse .rows(i)("型号").split("-")(1) = "073"

        .rows(i).delete()

    end if

next

End With

 

或：

DataTables("Sheet1").DeleteFor("[型号]  =‘201 10410-070’")

DataTables("Sheet1").DeleteFor("[型号] = ‘201 10410-071’")

DataTables("Sheet1").DeleteFor("[型号] = ‘201 10410-072’")

 

楼主要的应该是这个：

 

With Tables("Sheet1")
    For i As Integer = .Rows.Count-1 To 0 Step - 1
        Dim v As String = .rows(i)("型号")
        If v.EndsWith("-070") OrElse v.EndsWith("-071") OrElse v.EndsWith("-072")

        Else
            .rows(i).delete()
        End If
    Next
End With

谢谢二位。呵呵。但是没有接触过代码。我还不知道在什么地方录入这些代码呢？

直接将4楼代码复制到命令窗口执行即可。