[已解决]多个sheet的内容如何复制并转置到一个新sheet里

婉君妹妹

各位大师，专家！

               小菜鸟真诚求助！

              需求如附件： 有几个不同内容的sheet，取其中位置相同的两列，假定为E5：E80和 H5:H80两列，汇总到一个新的sheet里
              而且需要加上sheet自身的名字1,2并且转置。
             附上代码和附件，恳请各位大侠指教！ （代码也是百度找来修改的，后半截完全看不懂，所以一直不知道怎么分割和转置。）

Sub 取出特定单元格并复制走()
' 快捷键: Ctrl+z
For i = 1 To Sheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Range("E4:E80,H4:H80").Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
   Next
End Sub

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-8-28 14:33

多合一测试.rar (19.83 KB, 下载次数: 29)

2016-8-28 14:33 上传

点击文件名下载附件

跳转到最佳答案楼层

婉君妹妹

好像没人顶，在线等，人肉置顶

七彩屋

多合一测试.rar (19.83 KB, 下载次数: 29)

2016-8-28 14:33 上传

点击文件名下载附件

婉君妹妹

七彩屋 发表于 2016-8-28 14:33

大神，太感谢你了！有没有微信，小的给你发红包！

七彩屋

婉君妹妹 发表于 2016-8-28 16:20
大神，太感谢你了！有没有微信，小的给你发红包！

您客气了，举手之劳。

婉君妹妹

七彩屋 发表于 2016-8-28 16:31
您客气了，举手之劳。

高风亮节的大神！  这论坛好像不能送礼物，给你送点花
[em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23]

婉君妹妹

七彩屋 发表于 2016-8-28 16:31
您客气了，举手之劳。

大神，我还有另外一个问题，在另外一个标题里：

标题名是：
同目录下多表汇总的扩展问题


能帮忙看下吗