|
以下内容来自网络,我之前遇到类似问题在网络上找到的:
快速合并单个excel文件中的多个工作表
多个工作表的excel文件,要将数据合并到一个工作表,可利用excel的宏计算来解决这个问题。
首先移到工作表标签的最后,插入新工作表。
右键点击新工作表标签,点查看代码,然后看到代码页面。
把下面的代码复制到代码页面
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
End Sub
在代码页面点击工具栏上面的 运行 ,点击 运行子过程/用户窗体 。
代码运行到最后会提示合并完毕。点确定后关闭代码页面。
新工作表中会出现合并后的结果。
现在很多人用的WPS无法实现这个计算,只有功能健全的microsoft excel可以。 |
|