excel学习库

excel表格_excel函数公式大全_execl从入门到精通

如何把几个excel表格的内容合并到同一个表格里面?

把几个excel表格的内容,合并到同一张表格里面,如何操作?看小编给你演示。 第一步:把需要合并的表格放在同一个文件夹里面,然后再新建一个excel,如图:第二步:打开“新建Excel2007”,鼠标右键单击Sheet1,选择“查看代码”并打开进去。第三步:将下列代码粘贴进代码栏: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("B1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub第四步:点击菜单栏的“运行”、“运行子子过程/用户窗体”,等待几秒后提示合并完成,点击确定。如图:完成,这样就把3个表格的内容合并到同一张表格里面。 好了,如果觉得小编文章不错,欢迎关注、点赞、收藏。

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

«    2024年12月    »
1
2345678
9101112131415
16171819202122
23242526272829
3031
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
搜索
最新留言
    文章归档
      友情链接