[已解决]多张表格合并成一张表格，并实现自动加行

superalpha

我只会录制和应用宏，那程序还真看不懂~~老师能讲解下吗？
Sub TEST()
    Range("B3:F65536").Delete
    For Each SH In Sheets
        If SH.Name <> "总表" Then SH.Range("B3:F" & SH.Range("C65536").End(3).Row).Copy Sheets("总表" ).Range("B65536").End(3)(2)
    Next
    For I = 3 To Range("B65536").End(3).Row
        Cells(I, 2) = I - 2
    Next
End Sub

superalpha

zjdh 发表于 2013-10-15 16:45

恳请老师讲讲每句的意思~~~看不懂~~
Sub TEST()
    Range("B3:F65536").Delete
    For Each SH In Sheets
        If SH.Name <> "总表" Then SH.Range("B3:F" & SH.Range("C65536").End(3).Row).Copy Sheets("总表" ).Range("B65536").End(3)(2)
    Next
    For I = 3 To Range("B65536").End(3).Row
        Cells(I, 2) = I - 2
    Next
End Sub

zjdh

这么简单你都看不懂？
Sub TEST()
    Range("B3:F65536").Delete
    '清除第3行起所有数据
    For Each SH In Sheets
    '扫描每一个工作表
        If SH.Name <> "总表" Then SH.Range("B3:F" & SH.Range("C65536").End(3).Row).Copy Sheets("总表").Range("B65536").End(3)(2)
        '若工作表名称不是总表，则复制该表数据，到总表A列最后单元的下一单元。
    Next
    For I = 3 To Range("B65536").End(3).Row  '有数据的行添加序号
        Cells(I, 2) = I - 2
    Next
End Sub

superalpha

没学过VBA，能看懂一些，但几个点，有点不理解。
老师这么一讲解~~我就全明白了~~谢谢~~

superalpha

zjdh 发表于 2013-10-16 15:44
这么简单你都看不懂？
Sub TEST()
    Range("B3:F65536").Delete

没学过VBA，能看懂一些，但几个点，有点不理解。
老师这么一讲解~~我就全明白了~~谢谢~~

青山a

我对VBA不熟，下面改了一下代码，但结果是执行第一次是一个结果，再执行一次就变乱了，不知怎么改结果就是第一次的。请帮我看下，谢谢！

Sub TEST()
    Range("a3:j65536").Delete
    '清除第3行起所有数据
    For Each SH In Sheets
    '扫描每一个工作表
        If SH.Name <> "总表" Then SH.Range("a3:j" & SH.Range("b65536").End(3).Row).Copy Sheets("总表").Range("B65536").End(3)(2)
        '若工作表名称不是总表，则复制该表数据，到总表A列最后单元的下一单元。
    Next
    For I = 3 To Range("a65536").End(3).Row  '有数据的行添加序号
        Cells(I, 2) = I - 2
    Next
End Sub

superalpha

青山a 发表于 2013-10-17 23:25
我对VBA不熟，下面改了一下代码，但结果是执行第一次是一个结果，再执行一次就变乱了，不知怎么改结果就是第 ...

耧斗菜

zjdh 发表于 2013-10-16 15:44
这么简单你都看不懂？
Sub TEST()
    Range("B3:F65536").Delete

我们没学过编程类的，没有一点基础，可能有些代码是懂非懂，所以需要老师解释后，才能知晓。非常感谢你的解答

zjdh

青山a 发表于 2013-10-17 23:25
我对VBA不熟，下面改了一下代码，但结果是执行第一次是一个结果，再执行一次就变乱了，不知怎么改结果就是第 ...

Sub TEST()
    Range("a3:j65536").Delete
    For Each SH In Sheets
     If SH.Name <> "总表" Then SH.Range("a3:j" & SH.Range("b65536").End(3).Row).Copy Sheets("总表").Range("A65536").End(3)(2)
   Next
    For I = 3 To Range("a65536").End(3).Row  
        Cells(I, 2) = I - 2
    Next
End Sub

dunaxing

zjdh 发表于 2015-9-23 08:24
Sub TEST()
    Range("a3:j65536").Delete
    For Each SH In Sheets

so many years