Question

EXCEL VB 公式，删除满足条件的行

A咧有公司和单位等类型，现在用VB写代码，删除单元格内容是单位的行。

Answer 1

for i=1 to 200
if find("单位“，cells(i,1)，1）>1 then
cells(i,1)='*'
endif
if cells(i,1)="" then
exit for
endif

next i
然后筛选第一列单元格，内容为“*”的值，删掉就可以了

追问

提示有误噢，谢谢你

Answer 2

需要知道单位这种类型所具有的特征。

追问

可以私信我吗？我图片发不上来

单元格的内容就是"单位"

追答

Sub 删除单位()
    For i = [a65536].End(3).Row To 1 Step -1
        If Cells(i, 1) = "单位" Then Range("a" & i).EntireRow.Delete
    Next
End Sub

追问

太棒了！！！
那如果有两个参数，我刚试写一下，If Cells(i, 1) = "单位" Or Cells(i, 1) = "银行"可以用，有比这个更简洁的写法吗？