我也是新手啊,代码大概意思。
声明 合并当前工作簿下所有工作表()
刷新单元格=不
FOR NEXT结构
定义J=1到单元表数量
如果单元表(J)名字不等于活动单元格名字 那么
如果10个单元表,那么J就是从1到10的单元表,也就是SHEETS1到sheets10.
用EXCEL END+箭头↑功能检验有内容的单元格X=A65536单元格向上找到有内容的单元格,X即为这个单元格。
单元表J复制行内容直到A(X)行
结束假设
下一个
选择B1单元格
刷新单元表=是
弹出提示“"当前工作簿所有工作表合并完毕", vbInformation, "提示"”
结束声明
这个公式应该是excle2003版本用的,因为只有2003版本是65536行,如果你复制excel2007有可能报错,因为2007版本有1048576行。对应的列也比2003多。