󰅡收起

平子的小窝

平淡的人生,平淡的日子

Monthly: 十月 2019

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1 2、选择查看代码(PS:excel有着一项,WPS没有) 3、将下列代码复制到文本框中: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As阅读全文...

使用方法: 1、新建一个工作薄,将其命名为你合并后的名字。 2、打开此工作薄。 3、在其下任一个工作表标签上点击右键,选择“查看代码”。 4、在打开的VBA编辑窗口中粘贴以下代码: Sub 工作薄间工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(Fi阅读全文...