前言

你会和很多同学遇到这样的问题。一个文件夹里有很多相同类型但数量不同的表格，如何快速地将这些表格合并成一张表格呢？

那么今天“和我学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”能给你一些启发和帮助，请给其他小伙伴点赞，收藏，转发给其他小伙伴。(大卫亚设)。