[已解决]刚开始学习vba，各位老师帮我看一下哪里错了。谢谢

mn860429

[em23]，谢谢。
Kjn9aLqe.rar (11.15 KB, 下载次数: 0)

2010-11-25 16:19 上传

点击文件名下载附件
刚开始学习vba，各位老师帮我看一下哪里错了。谢谢

最佳答案

月排行榜 / 总排行榜

Dj_soo

2010-11-25 16:24

Sub lala()
    Dim sht As Worksheet, endrow As Long
    For Each sht In Worksheets
        endrow = Worksheets("汇总").Range("a65536").End(xlUp).Row + 1
        If sht.Name <> "汇总" Then
            sht.[a1].CurrentRegion.Copy Worksheets("汇总").Cells(endrow, 1)
        End If
    Next sht
End Sub

跳转到最佳答案楼层

Dj_soo

Sub lala()
    Dim sht As Worksheet, endrow As Long
    For Each sht In Worksheets
        endrow = Worksheets("汇总").Range("a65536").End(xlUp).Row + 1
        If sht.Name <> "汇总" Then
            sht.[a1].CurrentRegion.Copy Worksheets("汇总").Cells(endrow, 1)
        End If
    Next sht
End Sub

Dj_soo

activesheet指的是你当前激活了的工作表

mn860429

谢谢dj，我以为循环到哪个工作表哪个工作表就激活了。[em04]

双飞叶

看不是很懂,但收藏先