如何将多个电子表格中的内容合并到一个工作表中

如何将多个电子表格中的内容合并到一个工作表中

1，工作薄全部放在一个目录中：新建空白工作表为“朱科技”
2，打开工作表，单击工作表右键---查看代码
3，复制代码:
4，运行代码
备注：会有3个弹窗提示，按以下操作：
》此工作包含一个或多个无法更新的链接----点击“继续”
》在剪贴板上有大量信息。是否保留其内容，以便此后粘贴到其它程序中？---点击“否”
》是否保存对“****.xls”更改？----点击“否”
Sub 合并朱科技()
On Error Resume Next
Sheet1.Cells = ""
Dim FileName As String
Dim WK As Workbook
Dim MyEndRow As Long
Dim Rng As Range
FileName = Dir(ThisWorkbook.Path & "\*.xls")
If FileName <> "" Then
Do
If FileName <> ThisWorkbook.Name Then
N = N + 1
Set WK = Workbooks.Open(ThisWorkbook.Path & "\" & FileName)
MyEndRow = Range("A65536").End(xlUp).Row
WK.Sheets("朱科技").UsedRange.Copy
Range("A" & MyEndRow + 1).PasteSpecial
WK.Close
End If
FileName = Dir
Loop While FileName <> ""
End If
BT = Range("A2").Value
For Each Rng In Range("A3:A" & UsedRange.Rows.Count)
If Rng.Value = BT Then Rng.EntireRow.Delete
Next
MsgBox "处理完毕!共处理文件" & N & "个."
End Sub
内容来源于知友，只是对其中的汉字做了几个修改，改成自己的名字了

是excel么？ 第一步：打开你的工作簿，创建一个空表工作表（sheet1的位置） 第二步：工具菜单-选项-安全性-宏安全性-设置成“中”等 第三步：工具菜单-宏-宏-宏名-输入个名字--点创建 第四步：弹出来一个框框 【在“sub 合并工作表()”下面，将以下的字符复制粘贴过去】 dim m as integer dim n as integer dim o as integer for m = 2 to 6 n = sheets(m).[a65536].end(xlup).row o = sheets(1).[a65536].end(xlup).row sheets(m).select range("a1", "z" & n).select range("a" & n).activate selection.copy sheets(1).select range("a" & o + 1).select activesheet.paste next 第五步：注意 ：for m = 2 to 6 如果你有5个工作表 你就for m = 2 to 6 如果有7个就 for m = 2 to 8 如果有8个 就for m = 2 to 9 以此类推 第六步：打开你之前创建的那个工作表 ，sheet1. 第七步：工具菜单，选择“宏”—“宏” 点击执行~ 就ok啦~