excel表内有50张表sheet1-50，格式一样，如何复制到一个sheet里？

运行这段代码,然后删除sheet51中的所有标题行就可以了
sub test()
sheetsadd after:=sheets(sheetscount)
for i = 1 to 50
sheets(i)usedrangecopy sheets("sheet51")range("a" & _
sheets("sheet51")range("a65536")end(xlup)row + 1)
nextend sub

使WORD里面的文章自动生成目录:

假如文章中标题格式为

第一节大标题（一级）

11小标题（二级）

111—小标题下的小标题（三级）

第N节大标题（一级）

n1小标题（二级）

n11—小标题下的小标题（三级）

自动生成文章目录的 *** 作：

一、设置标题格式

1选中文章中的所有一级标题；

2在“格式”工具栏的左端，“样式”列表中单击“标题1”。

仿照步骤1、2设置二、三级标题格式为标题2、标题3。

二、自动生成目录

1把光标定位到文章第1页的首行第1个字符左侧（目录应在文章的前面）；

2执行菜单命令“插入/引用/索引和目录”打开“索引的目录”对话框；

3在对话框中单击“目录”选项卡，进行相关设置后，单击“确定”按钮，文章的目录自动生成完成。

友情提示：

目录页码应该与正文页码编码不同。

把光标定位在目录页末，执行“插入/分隔符/下一页/确定” *** 作，在目录与正文之间插入分页符；

执行“视图/页眉和页脚”命令，把光标定位到正文首页的页脚处，单击“页眉和页脚”工具栏上的“链接到前一个”按钮正文页脚与目录页脚的链接；

执行“插入/页码”命令，在“格式”中选择页码格式、选中“起始页码”为“1”，单击“确定。

至此完成正文的页码插入。

目录如果是多页，插入页码时可以选择与正文页码不同的页码格式。当然，如果目录只有一页，没有必要插入页码。

希望对你有所帮助

---