excel工作表中有很多表格，而每个表格的行数不一
（所有表格只有一列往下排
列数是一样的
）
您试试在空行第一单元格处插入分页符号
再调整打印页面
不懂HI我帮您看看
在一个excel表格里面，有很多工作表，但是每个工作表都有几个相同的要填的项目，怎么填一个后面自动生成
方法1、如果各表结构相同，可以采用复制的功能；方法2:、做公式链接，第一次麻烦些，以后再需修改第一个表中的某项，后面相关表中的此项就会随之变动
由于工作关系每天都要接收很多个独立的表格，我需要把这些独立的表格汇总到一个总表格里
百度知道中有相应的内可供参考：*******************************************************************'把要汇总的工作在同一文件，再建一个汇总工作簿，面代码放入汇总工作簿中。
Sub ABCD()Dim lj As StringDim dirname As StringDim nm As Stringlj = ActiveWorkbook.Pathnm = ActiveWorkbook.Namedirname = Dir(lj & \\\\*.xls)Cells.Clear Do While dirname <> If dirname <> nm ThenWorkbooks.Open Filename:=lj & \\\\ & dirnameWorkbooks(nm).ActivateWorkbooks(dirname).Sheets(1).Range(A4:J15).Copy _Sheets(1).Range(a65536).End(xlUp).Offset(1, 0)Workbooks(dirname).Close False End Ifdirname = Dir LoopRows(1:1).Select Selection.Delete Shift:=xlUp End Sub追问试了一下的确不错，可以将不同工作簿相同名字的表格合并在一个新工作的表格里。
但是还有一点没有成功，就是每个工作簿里只能对一个工作表有效，我的每个工作簿里有很多个表要合并，请问有办法解决吗回答'修改如下：'把要汇总的工作簿放在同一文件夹下，再建一个汇总工作簿，把下面代码放入汇总工作簿中。
Sub ABCD()Dim lj As StringDim dirname As StringDim nm As StringFor j = 1 To 4 '根据表数 Worksheets(j).ActivateCells.ClearNextFor i = 1 To 4 '根据表数lj = ActiveWorkbook.Pathnm = ActiveWorkbook.Namedirname = Dir(lj & \\\\*.xls) Do While dirname <> If dirname <> nm ThenWorkbooks.Open Filename:=lj & \\\\ & dirnameWorkbooks(nm).ActivateWorkbooks(dirname).Sheets(i).Range(A4:J15).Copy _Sheets(i).Range(a65536).End(xlUp).Offset(1, 0)Workbooks(dirname).Close False End Ifdirname = Dir Loop Next End Sub
在一个工作表里有很多相同的表格,数据不同,我只要同一列同一个单元格的数据之和.怎样才能高效,优质,望指教
=sum(sheet1:sheet30!a5)这个公式计算了sheet1到sheet30中的A5单元格的总和，你可以自己修改，但要注意，这30张表格必须是相连的，也就是说这些表中间不允许有其它的表。
电子表格中怎么样同时选中很多个工作表，同时替换内容
执行“查找”命令（Ctrl+F）,选择替换选项卡，再点开“选项”功能，然后在范围那里选择“工作薄”，这样你就可以将整个文档的旧内容替换成你所要的新内容了。
以上是以2003版的方式，其它版本的话也是大同小异
一个工作表 很多表格 第一页做目录 目录名是后面各个表格的名字 目录做后面各个表格的超连接
sub lianjie() dim i as long for i= 1 to 100 sheet1.cells(i,1).select '选中单元格 sheet1.Hyperlinks.Add Anchor:=Selection, Address:=, SubAddress:= Sheet & i & !A1, TextToDisplay:=Sheet & i '添加链接 next end sub 能看懂就用，看不懂我也不懂
