QWE1689664465
QWE1689664465
采纳率0%
2018-04-19 03:19 阅读 2.2k

合并30多张excel表,表头有合并单元格

10

我想将多个excel 表合并在一多excel表中,但是excel的表头是有合并单元格的,如下图片所示(合并的情况),紧急,希望通过vba代码实现,谢谢!图片说明

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

2条回答 默认 最新

  • caozhy 从今以后生命中的每一秒都属于我爱的人 2018-04-19 04:29

    表头的高度是否是固定的?如果是,直接跳过就可以。录制一个宏,把一个表的除了表头的部分粘贴到第一个表后面
    然后看生成的代码,只要在此基础上算出每次插入的位置,循环插入别的表就可以。

    点赞 1 评论 复制链接分享
  • wubozh wubozh 2018-04-20 01:23

    Workbooks.Open "D:\2017.xlsx" #打开一个工作薄
    Workbooks("2017.xlsx").Worksheets("sheet1").Activate #激活里面的工作表
    Range("A4:L135").Select #选择A4到L135区域(选择表头后的数据)
    Selection.Copy 复制这个区域
    打开另一个工作薄
    激活对应的工作表
    zdh = Range("A1").CurrentRegion.Rows.Count + 1 #定位到要粘贴的单元格(最大行zdh变量要先定义)
    Range("A" & zdh).PasteSpecial Paste:=xlPasteValues #数据粘贴进去
    如果要一个文件夹下的所有工作薄都自动粘贴到某个指定的工作薄中去,还得用一小段代码遍历这个文件夹,依次打开里面的工作薄

    点赞 评论 复制链接分享

相关推荐