怎么把十个excel变成一个

1.10个excel表格怎么变成一个表格?

可以用宏来处理，居然很容易实现。

===== 现在的你的数据表已经有了。然后表光标移到A1，然后点菜单的--工具→宏→录制新宏（一般要指定一个快捷键，我用的是ctrl shift L），回到excel界面，拉选A-A10，右键剪切。

单击新建excel文件按钮（工具栏第一行上的白色按钮），直接在A1上右键-粘贴，单击回到刚才的文件，右键→删除现有正在被选中的A1-A10行，这样下面的A11自动占据上面的位置，光标放在A1上，结束录制宏。 然后就这样直接按 快捷键，马上就完成了你需要的每10个一组，复制到10个新文件的操作。

但是现在的这个文件，如果你还需要，要提前备份一下或复制到sheet2啊。不然就没有了。

2.怎么把多个excel表格合并成一个

打开excel表格，点击菜单栏的【数据】选项。

在下方，找到【合并表格】选项并点击。选择合并方式为【多个工作表合并成一个工作表】。

之后，点击【添加文件】选项。选择其他的excel表格，点击【打开】。

添加完成后，点击【开始合并】选项，详细步骤： 1、打开excel表格，点击菜单栏的【数据】选项。 2、在下方，找到【合并表格】选项并点击。

3、选择合并方式为【多个工作表合并成一个工作表】。 4、之后，点击【添加文件】选项。

5、选择其他的excel表格，点击【打开】。 6、添加完成后，点击【开始合并】选项。

7、合并完成后，在【报告】页可看到合并的数据情况。 8、点击【总表】，即可看到合并后的表格内容。

3.如何将excel中几十个工作表中的某一列提取出来单独做一个excel

假设这些份文件在一个文件夹中，且若打开某一文件，数据就能看见——即不用点其他sheet。

建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt+F11进入宏界面，点菜单的插入，模块，粘贴如下代码： Sub Find() Application.ScreenUpdating = False Dim MyDir As String dim i as integer i = 1 MyDir = ThisWorkbook.Path & "\" ChDrive Left(MyDir, 1) 'find all the excel files ChDir MyDir Match = Dir$("") Do If Not LCase(Match) = LCase(ThisWorkbook.Name) Then Workbooks.Open Match, 0 'open Range("F1:F999").copy thisworkbook.activate cells(1,i).select activesheet.paste Windows(Match).Activate ActiveWindow.Close i = i +1 End If Match = Dir$ Loop Until Len(Match) = 0 Application.ScreenUpdating = True End Sub 粗体的F表示你的某一列为F列，自己改。

在此界面直接按F5运行此宏，完成。

4.excel怎么把多个工作表合并成一个

利用excel表的宏计算可以把多个工作表合并成一个。方法如下：

工具/原料：

多个excel表数据丶microsoft office

步骤：

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表数据合并后的结果。效果如图所示。

注意事项：

金山的WPS没有宏计算功能。只能用microsoft excel来实现。