前言
你会和很多同学遇到这样的问题。一个文件夹里有很多相同类型但数量不同的表格,如何快速地将这些表格合并成一张表格呢?
那么今天“和我学WPS”将简单地教你一种方法,如果没有空闲的事,就分给朋友们。
第一步:
把这些要合并的票放在同一个文件夹里。(不要把不会合并的票放在这个文件夹里。)
第二步:按住快捷键" ALT FN F11 "时,将出现以下界面
步骤3:单击最左侧的“查看代码”选项
步骤4:将合并代码复制到文档中
Sub合并当前目录中所有工作簿的所有工作表()
Dim MyPath、MyName和AWbName
Dim Wb As Workbook、WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
A=False
MyPath=Ac
MyName=Dir(MyPath '\' '*。xls ')
AWbName=Ac
Num=0
Do While MyName ' '
If MyName AWbName Then
Set WB=workbooks.open(我的路径名)
Num=Num 1
With Workbooks(1)。ActiveSheet
.cells(.range ('b 65536 ')。end (xlup)。row 2,1)=left (my name,len(my name)-;
For g=1至s
Wb.sheets (g)。u.cells(.range ('b 65536 ')。end (xlup)。row 1,1)
next
WbN=WbN Chr(13) Wb。Name
Wb。Close False
End With
End If
MyName=Dir
循环(音乐)
范围(' B1 ')。Select
A=真
“MsgBox”在“Num”个工作簿下合并了所有工作表。如下所示:' chr (13) WBN,关于VB,'提示'
End Sub
复制代码
结束语
今天和大家分享“合并同一个文件夹下的多个表格的方法”很复杂,但实际上真的很实用。你学过心爱的小伙伴吗?(大卫亚设,Northern Exposure)请尽快尝试一下。如果你认为“和我一起学习WPS”能给你一些启发和帮助,请给其他小伙伴点赞,收藏,转发给其他小伙伴。(大卫亚设)。