Question

求编写一个在excel上运行的简单的vba程序

要求大致是这样的，循环遍历A1-A200格，如果某一格的值等于27,35,69,77则将这一行删除，请高人帮忙写下，万分感谢
我是想让值为27,35,69,77他们其中之一时都删除，不是说值等于27,35,69,77，不好意思，该怎么改

Answer 1

sub deleteRow()
for i = 200 to 1 step -1
cmpValue = range("A" & i).value
if cmpValue = "27" or cmpValue = "35" or cmpValue = "69" or cmpValue = "77" then
row(i).delete
end if
next
end sub

Answer 2

sub fd()
for i = 1 to 200
select case cells(i,1).value
case “27”,“35”,“69”,“77”
cells(i,1).entirerow.delete
end select
next
end sub

Answer 3

sub fd()
for i = 1 to 200
select case cells(i,1).value
case 27,35,69,77
cells(i,1).entirerow.delete
end select
next
end sub

Answer 4

第三楼的程序能用