作者addisons18 (慌慌张张)
看板Office
标题[问题] excel 分页明细 合并在一个分页
时间Thu May 18 19:09:03 2017
(若是和其他不同软体互动之问题 请记得一并填写)
软体:excel
版本: 2010
大家好
我的需求是
我的一个excel档案里,有200个分页
我想要将每一个分页里的B2~J200
全部显示在同一个分页 (不是要相加或是计算数量 是要把明细全部整并在一个分页里看)
网路上查了很多
也试了用插入模组的方式输入以下资料
Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
但是这个好像不符合我的需求,照理应该要可以选择每个分页的起始结束范围
(例如我是要B2~J200)
不知道到底该怎麽做,刚也爬了版上文章,
但是关於EXCEL分页合并的资料很少, 所以才来请版上高手协助一下 > <
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 210.69.138.172
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1495105746.A.77C.html
1F:→ soyoso: 将range("a1").select至select.offset(1,0).resize()改为 05/19 00:00
2F:→ soyoso: 原文要的范围 05/19 00:01
3F:→ soyoso: 另外range("a1").entirerow.select和下一行就看原po有没有 05/19 00:02
4F:→ soyoso: 要复制标题列,如无则可取消 05/19 00:03