麻烦帮看看这个VBA怎么只能运行164行

飘渺风

Sub test()
    Application.ScreenUpdating = False
    MOB = Sheet3.Name    '记下原名
    Dim rng
    For Each rng In Sheet5.Range("a3:a" & Sheet5.[a65536].End(3).Row)
        Sheet3.Name = Sheet3.Cells(6, 12)
        Sheet3.Copy
Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
       Sheet3.[a1].Value = rng.Value
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.path & "\" & Sheet3.Range("l6").Value & Sheet3.Range("c8").Value & Sheet3.Range("d14").Value & ".xls"
        ActiveWorkbook.Close True
    Next
    Sheet3.Name = MOB    '恢复原名

    Application.ScreenUpdating = True
End Sub

amesman

看看你的工作表Sheet5中A列有数据的最后一行是第多少行？