Office中国论坛/Access中国论坛

标题: 请帮助看看合并工作表（VBA）问题： [打印本页]

作者: yanwei82123300 时间: 2016-5-18 10:02
标题: 请帮助看看合并工作表（VBA）问题：
请老师看看如何将第一行填充，同时保留第一个工作表的表头，其余表的表头不保存，谢谢

作者: yanwei82123300 时间: 2016-5-18 10:04

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

作者: pureshadow 时间: 2016-5-18 10:26
试试O啦插件吧，里面有这功能。

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

作者: access新新新手 时间: 2016-5-18 10:44

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 时间: 2016-5-18 11:08
access新新新手 ,谢谢老师帮助

作者: pureshadow 时间: 2016-5-18 19:54
O啦插件：http://www.office-cn.net/t/exaddin/index.html?home.htm

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)