如何将Excel里一个工作薄内的多个工作表复制到一张新表里
1.需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示:
2.用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示:
3.然后把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,如图所示:
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
4.运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
可以试一试Excel的合并计算功能,也许能完成你的任务。
答:1、打开「表格(Excel)」文档;2、点击「数据-拆分表格」;3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。
答:1、打开excel表格,在单元格中输入需要计算的数据。2、选择工具栏中“数据”栏目中的“合并计算”选项。3、在弹出的对话框中,将引用位置选中A列和B列有数据的单元格。4、再点击添加,并将“最左列”前面勾选中,点击确定。5、即可在表格中自动生成同样名字的数据求和。
答:1.需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示:2.用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示:3.然后把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行...
答:1、打开一个需要用到的Excel表格。2、例如要将这个Excel表格中sheet5中的数据复制到sheet6、sheet7中去。3、将sheet5中需要复制到sheet6、sheet7中选中,复制,然后分别点开sheet6、sheet7,在里面粘贴。4、在sheet5中选中需要复制的数据,然后点击sheet6,同时按下键盘的 shift 键不放,再点击 sheet...
答:1、首先,下载一个叫Kutools for Excel的办公软件,安装Kutools for Excel 后,点击企业-汇总。2、在汇总工作表向导里,选择复制多个工作簿中的数据到一个工作表中选项。3、点击下一步按钮。在向导第二步里列出了所有打开的工作簿和工作表。如果想要添加其他工作簿或者文件夹,你可以点击添加按钮插入需要...
答:第一步:先找到自己需要合并的工作簿,并打开。第二步:选择要合并到其他工作簿的工作簿,并在开始界面中点击工作表,然后选择移动或复制工作表选项。第三步:选择要移动或复制到的目标工作簿,并选择工作表位置,一般选择(移至最后),也可以根据自己所需选择。第四步:按照上述方法操作,即可将所需...
答:在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”;按Alt+F11进入VBA代码编辑和调试界面;根据下图提示,插入一个模块;将下述代码粘贴到模块空白处:Sub CombineSheetsCells()Dim wsNewWorksheet As Worksheet Dim cel As Range Dim DataSource, RowTitle, Column...
答:详细步骤如下:1.模型:工作簿内有若干个工作表,将每个表的最大行数提取到最后一个表中 2.Alt+F11,在最后一个工作表中,输入如下代码 Sub main()Cells(1, 1) = "工作表"Cells(1, 2) = "最大行数"For i = 1 To 3 Cells(i + 1, "A") = Sheets(i).Name Cells(i + 1, "B...
答:1.打开EXCEL,选择不同单元格的相同位置的区域。2.将鼠标移动到工作表的底部的,右击任意工作表标签,在弹出的菜单里选择“选择全部工作表”3.选择全部工作表当然还可以使用快捷键的方法,点击第一个工作表,按住SHIFT,再点击最后一个工作表的就可以快速选择全部工作表。这个时候可以对所有工作表的相同...
答:将同一个工作薄中多张表内容汇总并引用到一个工作表中的方法是,用条件求和函数sumif(),如果条件比较多,2003以上版本可以多条件求和函数sumifs(),公式用法:=sumif(条件在哪列,条件是什么,求和列)1、只需一个条件的求和, 公式:=SUMIF(Sheet2!B:B,B2,Sheet2!C:C)+SUMIF(Sheet3!B:B,...