平子的小窝

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阅读全文...