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’")
[此贴子已经被作者于2011-4-24 22:30:57编辑过]