Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2939|回复: 12

[已解决]请求赐教!合并工作表为工作 ...

[复制链接]
发表于 2013-1-27 19:33 | 显示全部楼层 |阅读模式
请求赐教!合并工作表为工作薄。以工作表标签的日期对应地引用到A列的“日期”。.rar (18.34 KB, 下载次数: 15)
发表于 2013-1-27 19:38 | 显示全部楼层
合并单元格太多了,不好处理。做数据的时候,这种合并,能不用最好不要用,后期用代码处理,诸多的不便的。
回复

使用道具 举报

 楼主| 发表于 2013-1-27 19:42 | 显示全部楼层
hwc2ycy 发表于 2013-1-27 19:38
合并单元格太多了,不好处理。做数据的时候,这种合并,能不用最好不要用,后期用代码处理,诸多的不便的。 ...


请求赐教!合并工作表为工作薄。以工作表标签的日期对应地引用到A列的“日期”。.rar (18.34 KB, 下载次数: 6)
回复

使用道具 举报

发表于 2013-1-27 19:44 | 显示全部楼层
就几个表叠加按顺序复制到一块嘛?
回复

使用道具 举报

 楼主| 发表于 2013-1-27 19:46 | 显示全部楼层
hwc2ycy 发表于 2013-1-27 19:44
就几个表叠加按顺序复制到一块嘛?

太多了。且每天要更新数据的
回复

使用道具 举报

发表于 2013-1-27 19:46 | 显示全部楼层
各个日期工作表内的A列的日期是你自己填上去的吗?
回复

使用道具 举报

 楼主| 发表于 2013-1-27 19:51 | 显示全部楼层
本帖最后由 松儿 于 2013-1-27 20:01 编辑
hwc2ycy 发表于 2013-1-27 19:46
各个日期工作表内的A列的日期是你自己填上去的吗?


是的。请您设计为在合并时将工作表标签日期,自动生成为A列的日期。
回复

使用道具 举报

发表于 2013-1-27 20:37 | 显示全部楼层
本帖最后由 hwc2ycy 于 2013-1-27 20:40 编辑

==,还没做日期处理。
回复

使用道具 举报

 楼主| 发表于 2013-1-27 20:42 | 显示全部楼层
hwc2ycy 发表于 2013-1-27 20:37
==,还没做日期处理。

要作日期处理的,我来重发一下附件 请求赐教!合并工作表为工作薄。以工作表标签的日期对应地引用到A列的“日期”。.rar (18.49 KB, 下载次数: 20)
回复

使用道具 举报

发表于 2013-1-27 21:05 | 显示全部楼层
  1. Sub 合并()
  2.     Dim wb As Workbook
  3.     Dim i&, addr$, j&
  4.     With ThisWorkbook
  5.         For i = 1 To .Worksheets.Count
  6.             Debug.Print .Worksheets(i).Name,
  7.             If .Worksheets(i).Name Like "*.*.*" Then
  8.                 .Worksheets(i).UsedRange.Copy
  9.                 Exit For
  10.             End If
  11.         Next
  12.         Set wb = Workbooks.Add
  13.         Cells(Rows.Count, 1).End(xlUp).PasteSpecial
  14.         For j = i + 1 To .Worksheets.Count
  15.             If .Worksheets(j).Name Like "*.*.*" Then
  16.                 addr = Replace(.Worksheets(j).UsedRange.Address, "$A$1", "$A$5")
  17.                 .Worksheets(j).Range(addr).Copy
  18.                 Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
  19.             End If
  20.         Next
  21.     End With
  22.     MsgBox "工作表已经合并到" & wb.Name & ",请保存"
  23. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
松儿 + 3 赞一个!

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 09:23 , Processed in 0.491305 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表