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
相关推荐
Python大数据分析@3 小时前
python操作CSV和excel,如何来做?
开发语言·python·excel
John.liu_Test4 小时前
js下载excel示例demo
前端·javascript·excel
ruleslol6 小时前
VBA02-初识宏——EXCEL录像机
excel·vba
IT铺子6 小时前
制定Excel使用规范和指导,提升数据处理的效率和准确性,减少错误和数据丢失的风险
excel
是萝卜干呀6 小时前
Backend - Python 爬取网页数据并保存在Excel文件中
python·excel·table·xlwt·爬取网页数据
神奇夜光杯12 小时前
Python酷库之旅-第三方库Pandas(202)
开发语言·人工智能·python·excel·pandas·标准库及第三方库·学习与成长
小c君tt13 小时前
MFC中Excel的导入以及使用步骤
c++·excel·mfc
一名技术极客15 小时前
Vue2 doc、excel、pdf、ppt、txt、图片以及视频等在线预览
pdf·powerpoint·excel·文件在线预览
用余生去守护15 小时前
【反射率】-- Lab 转换(excel)
excel
进击的六角龙15 小时前
Python中处理Excel的基本概念(如工作簿、工作表等)
开发语言·python·excel