您的位置 首页 > 数码极客

【wps合并单元格快捷键】学习WPS:用手教你合并同一个文件夹中的多个表单。

前言

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

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

关于作者: luda

无忧经验小编鲁达,内容侵删请Email至wohenlihai#qq.com(#改为@)

热门推荐