请帮助看看合并工作表（VBA）问题：

yanwei82123300

请老师看看如何将第一行填充，同时保留第一个工作表的表头，其余表的表头不保存，谢谢

yanwei82123300

将所有表数据汇总到汇总表中，只保留表1的内容的表头，其余的表的表头不需要

pureshadow

试试O啦插件吧，里面有这功能。

yanwei82123300

妖姐，谢谢帮助，请给个路径吧！同时能否修改一下附件，谢谢

access新新新手

yanwei82123300 发表于 2016-5-18 10:38
妖姐，谢谢帮助，请给个路径吧！同时能否修改一下附件，谢谢

Sub 汇总工作薄数据()
    Sheets("汇总").Range("a2:f65536").ClearContents
    br = [{"ITEM","ITEM_DESC","UM","ITEM_CLAS7","ITEM_CLAS8","PRDLN"}]
    Range("a1:f1") = br
    Rows("2:65536").Clear
    Dim sht As Worksheet, xrow As Integer, Rng As Range
    For Each sht In Worksheets
        If sht.Name <> "汇总" Then
            Set Rng = Range("a65536").End(xlUp).Offset(1, 0)
            xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1
            sht.Range("a2").Resize(xrow, 6).Copy Rng
        End If
    Next
End Sub

yanwei82123300

access新新新手 ,谢谢老师帮助

pureshadow

O啦插件：http://www.office-cn.net/t/exaddin/index.html?home.htm