网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,647贴子：1,541,433
  • 12回复贴，共1页

求大佬帮忙写个多个sheet合并的VBA


如图 我有89个这样的sheet，想把这89个sheet 的A1：Z30区域 合并成一个sheet，不删空行，保留原合并格式，我用pq合并就把我合并单元格全拆散了


合并完的效果大概就是这样的


power query可以把数据合并起来，表头合并单元格复制一份就可以了，楼主加个微信吧，18864631237



Sub t()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name <> ActiveSheet.Name Then
ws.Range("a1:z30").Copy Cells(h + 1, 1)
h = h + 30
End If
Next ws
End Sub


为啥大佬的回复我看不到啊 被吞了吗


有模板吗？可以用power pivot


手动合并两个，录制宏，然后复制编码扩展到80多个


怎么个合并法？每次A1:Z30的表头都要？


Sub 合并()
Dim i%
Worksheets.Add(before:=Sheets(1)).Name = "合并"
For i = 2 To Sheets.Count
Sheets(i).Rows("1:30").Copy Sheets("合并").Rows(30 * i - 59)
Next
End Sub


人生苦短我用python


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 12回复贴，共1页
分享到: