如何快速把几十个工作表汇总成一个工作表

可理喻

大家好,我现在遇到一个问题,不知道怎么解决了,有几十个格式相同的表格,放在不同的工作簿上,我要汇总成一个工作表,听说用宏很快,可是我按己上的做了,宏显示说我下标越界,我都不知道什么意思,谁能教教我呀,不胜感激,我Q467812814,加的时候注明EXCEL哦,谢谢各位啦

一拼老输

你有耐心等吗？

一拼老输

还是你加我的QQ吧!

可理喻

你QQ是多少呀,谢谢啦

pearllu

晕哦

怎么不在帖子里回答哈!

我也有相同的问题

有哪位高人指点一下啊！

binglan425

我也想知道啊，要怎么弄啊

可理喻

我的问题还没有得到解决,谁知道了

异冉

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim Sh As Worksheet, nRow As Long
   
    '清除原来汇总结果
    nRow = Range("a65536").End(xlUp).Row
    If nRow >= 3 Then
        Range("a3:f" & nRow).ClearContents
    End If
   
    '循环所有工作表
    For Each Sh In Worksheets
   
        If Sh.Name <> ActiveSheet.Name Then        '如果不是本汇总表
       
            nRow = Sh.Range("a65536").End(xlUp).Row '子工作表最后的行号
           
            If nRow >= 3 Then
                Sh.Range("a3:f" & nRow).Copy Range("a65536").End(xlUp).Offset(1) '把数据复制到汇总表的后面
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

pearllu

高人

能不能说下详细的步骤啊

loveminmin

xie xie la