教你快速将多个TXT文档合并成一个

篇一：快速合并多个WORD文档的操作方法

找到“对象”点下拉箭头，会出现

选择“文件中的文字”，然后会出现“选择文件”对话框，

选择你要导入的WORD文档，点“插入”即可。

建议在操作前先把WORD文档按1、2、 3、4编号（其它能保证顺序的命名方式也可以）。

篇二：快速合并多个EXCEL文件

如何快速合并多个excel文件？包括.xls .csv格式

1.新建一个.txt文本文件，就命名为“合并.txt”吧。

2.然后打开文件，复制以下代码到文件中：

@echo off

E:

cd xls

dir

copy *.csv all_keywords.csv

echo @@@@@@@@@@@@@合并成功！@@@@@@@@@@@@@'

pause

*****************************

1. 3

这段代码的详细解释如下图所示：

复制好代码后，保存并关闭txt文件，然后将.txt后缀改为.bat，这样合并程序就做好了：

给存放excel文件找个硬盘，以E盘为例，在E盘中创建一个新的文件夹，命名为“xls”：

2. 6

将需要合并的csv文件或xls文件放到文件夹中：

3. 7

双击合并.bat，工具会自动运行合并任务，速度相当快，不过多少个文件，几秒钟就搞定。

4. 8

查看xls文件夹，生成了一个合并文件all_keywords.csv，这样我们的excel合并工作就完成了。

篇三：多个excel文件快速合并成一个文件 非常好用

Excel多个文件格子如何合并？非常好用 1.先把所有要合并的EXCEL放到同一目录下.

2.在当前目录下新建一个 EXCEL 3.打开新建的EXCEL 按ALT+F11

4.在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("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN&Chr(13) &Wb.Name Wb.Close False

End With

End If

MyName = Dir Loop

Range("A1").Select Application.ScreenUpdating = True

MsgBox "共合并了" &Num& "个工作薄下的全部工作表。如下：" &Chr(13) &WbN, vbInformation, "提示"

End Sub

---------------------------此行不要复制-----------------------

5.关闭Microsoft Visual Basic

6.点击 工具-----宏-----安全性改成低 (如果已经改成低,此步骤可以省略) 7.点击 工具-----宏-----宏 再点击执行

8.稍等1~2分钟 <注意:EXCEL的总行数不要超过65535行>

楼主幸运，以前我找过，朋友给了段vba代码，很方便的

Sub CombineWorkbooks()

Dim FilesToOpen, ft Dim x As Integer

Application.ScreenUpdating = False

On Error GoToerrhandler

FilesToOpen = Application.GetOpenFilename _

(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _ MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "boolean" Then

MsgBox "没有选定文件"

'GoToerrhandler

End If

x = 1

While x <= UBound(FilesToOpen) Set wk = Workbooks.Open(Filename:=FilesToOpen(x))

wk.Sheets().Move after:=ThisWorkbook.Sheets _

(ThisWorkbook.Sheets.Count)

x = x + 1

Wend

MsgBox "合并成功完成！"

errhandler:

' MsgBoxErr.Description

'Resume errhandler

End Sub

回答人的补充2009-07-09 10:33

Sub test()

Dim i As Integer, j As Integer

For i = 2 To Sheets.Count

Sheets(i).Activate

ActiveSheet.UsedRange.Select Selection.Copy

Sheets(1).Activate

j = Range("a65536").End(xlUp).Row Cells(j + 1, 1).Select

ActiveSheet.Paste

Next i

End Sub

本文来源：https://www.bwwdw.com/article/grkb.html