|
麻烦请教下楼主,我写的 花名册分类 这个作业。遇到个问题,请帮忙看看:
为什么有时候能正常运行出结果,有时候就卡在这一句:
If Sheets(str).Range("a3").Value = "" Then
全部代码如下:
Sub fenlei3()
Dim i, irow As Integer
Dim str As String
Dim start As Double
start = Timer
irow = Sheet1.Range("a65536").End(xlUp).Row
'复制“清镇”以外的
Sheet1.Range("a2:l" & irow).AutoFilter Field:=8, Criteria1:=Array("贵阳" _
, "平坝", "黔西", "泗", "阳春", "以勒", "云岩", "织金", "遵义"), Operator:=xlFilterValues
Range("a3").Resize(10000, 1).SpecialCells(12).Range("a1:l" & irow).Copy Sheets("清镇市外").Range("a3")
'复制“清镇”的
Sheet1.Range("a2:l" & irow).AutoFilter Field:=8, Criteria1:="清镇"
For i = irow To 3 Step -1
str = Range("i" & i).Value
If Sheets(str).Range("a3").Value = "" Then
Sheet1.Range("a2:l" & irow).AutoFilter Field:=9, Criteria1:=str
Sheet1.Range("a2:l" & i).Copy Sheets(str).Range("a2")
Sheet1.Range("a2:l" & irow).AutoFilter Field:=9
Else
i = i - 1
End If
Next
Sheet1.Range("a2:l2").AutoFilter
MsgBox "程序共执行了" & Timer - start & "秒!"
End Sub
|
|