excel2010如何把一个excel表里的所有内容(包括格式)都word复制表格格式到另一张excel表里去？

来源：蜘蛛抓取(WebSpider) 时间：2017-03-12 19:36 标签： excel表格带格式复制
如何把EXCEL一个工作表的页面设置应用到所有工作表？
如何把EXCEL一个工作表的页面设置应用到所有工作表？&&
作者：jangogo 更新时间： 02:22:00
4Fang 软件有强大的EXCEL兼容功能，整个账（所有科目）都可以导出为一个EXCEL文件。
很多客户希望在导出为EXCEL后，批量打印，但是又需要重新进行页面设置，经常碰到的问题就是：
如何把EXCEL一个工作表的页面设置应用到所有工作表？
答： 右键点击工作表标签-选择全部工作表,然后进行格式和页面的设置，完成后点其它任一个工作表标签退出工作组状态，所选的工作表就统一设置好了
务必注意： 设置完成后要退出工作组状态，否则，所有的的更改将会应用到所有工作簿，例如，在没有退出工作组时在某个单元格输入了 1234，则所有工作簿对应的这个单元格都会变成1234。 这里务必要小心留意查看: 30615|回复: 30
如何一次把工作表中多个工作薄复制到另一个工作表中
阅读权限10
在线时间 小时
如题 如何一次就把工作表中多个工作薄复制到另一个工作表的相应的工作薄中。。而且是要把多个工作表中的工作薄里的内容都依次粘贴到同一个工作表中的工作薄中。谢谢各位大神
阅读权限100
在线时间 小时
工作表（簿）概念混了吧
最好有具体的文档例子
简单复制就“另存为”
阅读权限10
在线时间 小时
因为在收集新员工的信息 每个新员工都发过来一个这样的表格 各个表格里都有内容。。我需要把所有员工发来的表格都汇总到另一个格式相同的表中。。如何一次性就可以把一个员工发来的表格中的所有内容 粘贴到相应的总表中
(20.16 KB, 下载次数: 206)
09:25 上传
阅读权限10
在线时间 小时
jsxjd 发表于
工作表（簿）概念混了吧
最好有具体的文档例子
简单复制就“另存为”
因为在收集新员工的信息 每个新员工都发过来一个这样的表格 各个表格里都有内容。。我需要把所有员工发来的表格都汇总到另一个格式相同的表中。。如何一次性就可以把一个员工发来的表格中的所有内容 粘贴到相应的总表中
QQ图片50.jpg (20.16 KB, 下载次数: 2)
阅读权限100
在线时间 小时
<font color="#5348202 发表于
因为在收集新员工的信息 每个新员工都发过来一个这样的表格 各个表格里都有内容。。我需要把所有员工发来 ...
考虑通过VBA实现
阅读权限10
在线时间 小时
jsxjd 发表于
考虑通过VBA实现
大神 求指导
阅读权限100
在线时间 小时
<font color="#5348202 发表于
大神 求指导
上传代表性的附件，用文档说话
阅读权限10
在线时间 小时
jsxjd 发表于
上传代表性的附件，用文档说话
就是员工都给我发这样一个信息表。。里面都是个人的一些信息内容 我需要把这些信息汇总到这样的一个总表上
阅读权限10
在线时间 小时
这是信息表的格式 每个人都按这个格式发一张表
10:45 上传
点击文件名下载附件
11.63 KB, 下载次数: 146
阅读权限10
在线时间 小时
本帖最后由 orea 于
12:08 编辑
刚好写了个过程，拿去用吧。
1、将代码复制到需汇总的空表excel文件的宏中。
2、修改代码中红色部分的表格数和表格名。
3、将含宏的excel文件复制到其他需汇总的excel文件同一个文件夹中。
4、执行宏即可。
-----------------------------------------------------------------------------------------
Sub allIn1()
'本过程将当前文件夹下的所有excel文件中的指定sheet中的数据汇总到指定的excel文件中
& & Dim MyPath, MyName, AWbName
& & Dim wb As Workbook, WbN As String
& & Dim G As Long
& & Dim Num As Long
& & Dim BOX As String
& & Dim msg As String
& & Dim i As Integer
& & Dim mySTexist As Boolean
& & Dim myStName(2) As String& && &'指定汇总2个sheet，如需汇总其他多个sheet修改此段代码即可
& & myStName(1) = &表1&& &'第1个指定的sheet
& & myStName(2) = &表2&& &'第2个指定的sheet
& & Application.ScreenUpdating = False
& & MyPath = ThisWorkbook.Path
& & MyName = Dir(MyPath & &\& & &*.xls&)
& & AWbName = ThisWorkbook.Name
& & Num = 0
& & msg = &是否清除汇总表中原有数据？&
& & If MsgBox(msg, vbQuestion + vbYesNo) = vbYes Then
& && & For i = 1 To UBound(myStName)
& && && && &ThisWorkbook.Sheets(myStName(i)).Cells.Clear
& && & Next i
& & End If
& & Do While MyName && &&
& && &&&If MyName && AWbName Then
& && && && &Set wb = Workbooks.Open(MyPath & &\& & MyName)
& && && && &mySTexist = True
& && && && &
& && && && &For i = 1 To UBound(myStName)& &&&'判断文件中是否包含指定要汇总的sheet
& && && && && & mySTexist = mySTexist And WorksheetExists(wb, myStName(i))
& && && && &Next i
& && && && &
& && && && &If mySTexist Then
& && && && && & Num = Num + 1
& && && && && & For i = 1 To UBound(myStName)
& && && && && && &&&With ThisWorkbook.Sheets(myStName(i))
& && && && && && && && &wb.Sheets(myStName(i)).UsedRange.Copy .Cells(.Range(&A65536&).End(xlUp).Row + 1, 1)& &'数据复制到指定的sheet
& && && && && && &&&End With
& && && && && & Next i
& && && && && && &&&WbN = WbN & Chr(13) & wb.Name
& && && && && && &&&wb.Close SaveChanges:=False
& && && && && & Else
& && && && && && &msg = wb.Name & Chr(13) & &该文件不存在指定汇总的表& & Chr(13) & &该文件数据没有汇总。& & Chr(13) & Chr(13) & &是否继续汇总其他文件？&
& && && && && && &If MsgBox(msg, vbExclamation + vbYesNo) = vbNo Then Exit Sub
& && && && &End If
& && &&&End If
& && &&&MyName = Dir
& & ActiveWindow.SmallScroll up:=ActiveCell.Row
& & Application.ScreenUpdating = True
& & MsgBox &共合并了& & Num & &个工作薄下的指定工作表。如下：& & Chr(13) & WbN, vbInformation, &提示&
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 excel表格带格式复制 的文章

 

随机推荐