第1个回答 2012-10-11
可以做如下修改:(1)删除的时候,直接删除,而不实先选定;(2)屏幕不闪动
如下:
Sub 去除2()
Dim A As String
Dim AA
Application.ScreenUpdating = False
For Each AA In Columns("A:A").Cells
If AA Like "北京" Or AA Like "成都" Or AA Like "赤峰" Or AA Like "杭州" Or AA Like "上海" Or AA Like "深圳" Or AA Like "沈阳" Or AA Like "石家" Or AA Like "潍坊" Or AA Like "无锡" Or AA Like "武汉" Or AA Like "郑州" Or AA Like "总计" Then
AA.EntireRow.delete
End If
Next
Application.ScreenUpdating = True
End Sub
经测试,有明显改进。
第2个回答 2012-10-11
Sub 去除2()
Dim AA As String
Dim i As Integer
i = 1
Do While Range("C" & i).Text <> "" '设置结束的条件,这里当单元格为空时结束,你可以设为别的条件
AA = Range("C" & i).Text
If AA Like "北京" Or AA Like "成都" Or AA Like "赤峰" Or AA Like "杭州" Or AA Like "上海" Or AA Like "深圳" Or AA Like "沈阳" Or AA Like "石家" Or AA Like "潍坊" Or AA Like "无锡" Or AA Like "武汉" Or AA Like "郑州" Or AA Like "总计" Then
Range("C" & i) = ""
End If
i = i + 1
Loop
End Sub
第3个回答 2012-10-11
i=1
while i <= Range("A65536").End(xlUp).Row
AA = Range("A"&i).Value
if ...
Rows(i).Delete
else
i=i+1
endif
wend
第4个回答 2012-10-11
整行删的话.有必要用VBA吗.用筛选就行了