excel怎么快速合并多个工作表数据到一个工作表
7个回答
2019-11-08 · 旨在提供办公软件的问答帮助。
WPS官方
金山办公软件为金山软件集团子公司,主要研发并运营WPS系列办公软件。WPS是我国自主知识产权的民族软件代表,自1988年诞生以来,WPS Office已经成为全世界最知名的办公软件之一。
向TA提问
关注
壹寰(深圳)科技文化有限公司
2021-03-27 广告
2021-03-27 广告
不同公司提供的方案也不一样。以上内容如果还觉得不够全面,也可以沟通下壹寰(深圳)科技文化有限公司。91数据恢复是壹寰(深圳)科技文化有限公司旗下专业数据恢复品牌,91数据恢复专注于勒索病毒数据恢复、勒索病毒数据修复、数据库修复、数据库解密恢...
点击进入详情页
本回答由壹寰(深圳)科技文化有限公司提供
展开全部
增加一个工作表,放置工作簿第一个工作表,按alt+f11,(打开代码窗口);
2.按F7调出代码窗口;
3.将下列数据复制到窗口;
Sub hebing() '把各分表合并到第一个总表工作中
Rows("2:65536").Clear
Dim sht As Worksheet, xrow As Integer, rng As Range
For Each sht In Worksheets '遍历工作簿中所有工作表
If sht.Name <> ActiveSheet.Name Then
Set rng = Range("a65536").End(xlUp).Offset(1, 0) '获得总表A列第一个非空单元格并下移一个单元格
xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1 '获得分表中的记录行数
sht.Range("a2").Resize(xrow, 7).Copy rng '分表自A2单元格扩展并复制
End If
Next
End Sub
4.按F5运行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
推荐使用EXCEL的易永宝,直接百度搜索,下载,安装之后,打开EXCEL会出现合并工作簿,同一个工作簿的表会合并到一张表,如图
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
alt+F11,把这段代码放进去看看。
下面是汇总多个工作簿的一种情形,也是一名网友提出的问题:在同一文件夹中有多个工作簿,其中
Sub UnionWorksheets()
Application.ScreenUpdating = False
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xls*")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname
Workbooks(nm).Activate
'复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy _
Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub
文库资料:http://wenku.baidu.com/view/0b4f551d59eef8c75fbfb32b?fr=prin
这里有另外两种情形,你看你的是哪一类。
或者,把你的文件发来,帮你弄好
下面是汇总多个工作簿的一种情形,也是一名网友提出的问题:在同一文件夹中有多个工作簿,其中
Sub UnionWorksheets()
Application.ScreenUpdating = False
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xls*")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname
Workbooks(nm).Activate
'复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy _
Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub
文库资料:http://wenku.baidu.com/view/0b4f551d59eef8c75fbfb32b?fr=prin
这里有另外两种情形,你看你的是哪一类。
或者,把你的文件发来,帮你弄好
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询