菜鸟谈VBA最最基础入门《原创》

蓬佑憨憨

虽然现在还没学会，正在努力的学

suifeng6443

学习了，666

蔓越莓

麻烦请教下楼主，我写的 花名册分类 这个作业。遇到个问题，请帮忙看看：
为什么有时候能正常运行出结果，有时候就卡在这一句：
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

笨呐呐。。Yooo

书已入，确实讲的通俗易懂，入门易学

helenfu0607

nowarmy 发表于 2009-9-1 10:40
近期的Word版资料进行了简单的整理。
需要的可以下载了。

为啥我下载下来，解压缩以后，word里面内容是空的？

yuer800228

菜鸟有福了。

syohui

非常感谢！！！

angus_xlc

JLF2003 发表于 2009-8-14 13:28
ggsmart  你好!
          无私奉献精神,值得学习!
          我特把你的讲座,整理成PPT文件,请更多的家 ...

不错不错，出入门学习

mupcc

非常感谢。

大Bin

哎呀，没有收藏帖子的功能吗一次看不完