第1个回答 2008-12-10
把Sheet1改成ActiveSheet就可以对当前表有效了。
下面代码经调试可以。
Sub 删除A列为指定内容的行()
Dim a, b As Integer
a = ActiveSheet.[a65536].End(xlUp).Row
For b = a To 2 Step -1
If Cells(b, 1).Text = "删除" Then
Rows(b).Delete
End If
Next
End Sub
第2个回答 2008-12-10
Sub 删除A列为指定内容的行()
Dim iloop,numsheet as integer
dim a, b As Integer
numsheet = Worksheets.Count
for iloop=1 to numsheet
Sheets(iloop).select
a = Sheets(iloop).[a65536].End(xlUp).Row
For b = a To 2 Step -1
If Cells(b, 1).Value = "删除" Then
Rows(b).Delete
End If
Next
next iloop
End Sub本回答被提问者采纳