Excel表中合并两个Sheet的方法?

按Alt+F11,调出Visual Basic 界面。

在左侧窗口中,右键选择=="插入"---"模块"==:

将如下代码粘贴进去,点击运行按钮,完成数据表合并。

vbnet 复制代码
Sub MergeAllSheetsInThisWorkbook()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set st = Worksheets.Add(before:=Sheets(1))
st.Name = "merged"
For Each shet In Sheets:
If shet.Name <> "merged" Then
i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
shet.UsedRange.Copy
st.Cells(i, 1).PasteSpecial Paste:=xlPasteAll
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Done!!!"
End Sub
相关推荐
kim56597 小时前
excel版数独游戏(已完成)
算法·游戏·excel·数独
爱编程的小生15 小时前
Easyexcel(5-自定义列宽)
java·excel
newroad-for-myself18 小时前
英文版本-带EXCEL函数的数据分析
数据挖掘·数据分析·excel
爱编程的小生21 小时前
Easyexcel(6-单元格合并)
java·excel
PythonFun1 天前
Excel求和如何过滤错误值
excel
Morantkk2 天前
Word和Excel使用有感
word·excel
躺平的花卷2 天前
Python爬虫案例八:抓取597招聘网信息并用xlutils进行excel数据的保存
爬虫·excel
爱编程的小生2 天前
Easyexcel(2-文件读取)
java·excel
程序员如山石2 天前
Excel的图表使用和导出准备
excel
zhy8103022 天前
.net6 使用 FreeSpire.XLS 实现 excel 转 pdf - docker 部署
pdf·.net·excel