《如何将多个工作表合并成一个》由会员分享,可在线阅读,更多相关《如何将多个工作表合并成一个(2页珍藏版)》请在金锄头文库上搜索。
1、如何将同一工作薄中多个工作表合并如何将同一工作薄中多个工作表合并打开你要合并的工作簿,按下 alt+F11,插入-模块,复制下面的的内容,然后 运行。Sub 合并各工作表内容() sp = InputBox(“各表内容之间,间隔几行?不输则默认为 0“) If sp = “ Thensp = 0 End Ifst = InputBox(“各表从第几行开始合并?不输则默认为 2“) If st = “ Thenst = 2 End IfSheets(1).Select Sheets.AddIf st 1 ThenSheets(2).SelectRows(“1:“ & CStr(st - 1).S
2、electSelection.CopySheets(1).SelectRange(“A1“).SelectActiveSheet.Pastey = st - 1End IfFor i = 2 To Sheets.CountSheets(i).SelectFor v = 1 To 256zd = Cells(65535, v).End(xlUp).RowIf zd x Thenx = zdEnd IfNext vIf y + x - st + 1 + sp 65536 ThenMsgBox “内容太多,仅合并前“ & i - 2 & “个表的内容,请把其它表复制到新 工作薄里再用此程序合并!“Else:Rows(st & “:“ & x).SelectSelection.CopySheets(1).SelectRange(“A“ & CStr(y + 1).SelectActiveSheet.PasteSheets(i).SelectRange(“A1“).SelectApplication.CutCopyMode = FalseEnd Ify = y + x - st + 1 + spx = 0 Next iSheets(1).Select Range(“A1“).Select MsgBox “这就是合并后的表,请命名!“End Sub