求教一个合并SHEET的宏问题

cmc115

我在网上找到一段宏代码，是将多个SHEET合并为一个SHEET.
可以合并的，但是合并后只能到AN列，但是我的AO,AP列明明是有数据的。
本人小白一枚，请师傅指点。
Sub 合并一览表()
'
' 合并一览表 宏
'
' 快捷键: Ctrl+h
'
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 23
   n = Sheets(m).[a65536].End(xlUp).Row
   o = Sheets(1).[a65536].End(xlUp).Row
   Sheets(m).Select
   Range("a1", "z" & n).Select
   Range("a" & n).Activate
   Selection.Copy
   Sheets(1).Select
   Range("a" & o + 1).Select
   ActiveSheet.Paste
Next
End Sub
业务表.zip (100.42 KB, 下载次数: 20)

2012-11-2 15:39 上传

点击文件名下载附件

cmc115

自己再顶一下哦！

cmc115

{:soso_e109:}
有没有好心人教一下。
谢谢

cmc115

恳求哪位老师帮忙一下啊，等着用

那笔小心

它会出现运行时错误"9”，下标越界。
指的就是这一行 n = Sheets(m).[a65536].End(xlUp).Row
另外，变量的赋值可以不用那么长，只用一句就行：Dim m, n, o As Integer
......我也是刚学，别指望我能帮上忙

王小博vba

你要把哪几个sheet页合并到哪一页呢？你的excel一共才6个sheet页，你循环到23？能不越界嘛。我觉的吧，你得先看明白你找的代码是什么意思，才能改造，为己所用啊。到论坛里让别人给白写一段的事，现在大家好像都不太乐意干了。

Day-Day

call hehex !!!