两个相同的excel表格怎么合并(同一张excel表格中相同数据合并)

 我来答
黑科技1718
2022-09-12 · TA获得超过5858个赞
知道小有建树答主
回答量:433
采纳率:97%
帮助的人:81万
展开全部
您好,我就为大家解答关于两个相同的excel表格怎么合并,同一张excel表格中相同数据合并相信很多小伙伴还不知道,现在让我们一起来看枝行李看吧!...

您好,我就为大家解答关于两个相同的excel表格怎么合并,同一张excel表格中相同数据合并相信很多小伙伴还不知道,现在让我们一起来看看吧!

1、第一把这些表猛迟放在一个新建立 的文件夹里,第二在这个新建立 的文件夹里再新建一个excel表格文件 打开这个文件 在左下角sheet1标签处右键 查看代带差码 然后把下面代码 复制进去 然后点运行 运行子过程等几不一会时间就可以了,你的表格没有合并过和单元格才行,如果 有这个程序也会中断的,还有确定每个表的A列得有内容等待合并完以后把B列有空的行用筛选的方式删除了就行Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath &""&"*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName >""If MyName > AWbName ThenSet Wb = ***.Open(MyPath &""& MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox"共合并了"& Num &"个工作薄下的全部工作表。

2、如下:"& Chr(13) & WbN, vbInformation,"提示"End Sub。

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式