2，開啟你工作表1，ctrl+A，全選複製工作表1的內容，貼上到工作表2中，也可以實現將工作表1的內容複製到工作表2中；, 擴充套件資料： 快速將多個excel表合併成一個excel表： 技術實現：利用excel表的宏計算實現。 注意：金山的WPS沒有宏計算功能。只能用microsoft excel來實現。 具體步驟如下： 1、我們需要把多個excel表都放在同一個資料夾裡面，並在這個資料夾裡面新建一個excel。如圖所示： 2、用microsoft excel開啟新建的excel表，並右鍵單擊sheet1，找到“檢視程式碼”，單擊進去。進去之後就看到了宏計算介面。如圖所示： 3、然後我們把下面這些宏計算的程式碼複製進去，然後找到工具欄上面的“執行”下的“執行子過程/使用者窗體”。 程式碼如下： dim mypath, myname, awbname dim wb as workbook, wbn as string dim g as long dim num as long dim box as string application.screenupdating = false mypath = activeworkbook.path myname = dir(mypath & "\" & "*.xls") awbname = activeworkbook.name num = 0 do while myname "" if myname awbname then set wb = workbooks.open(mypath & "\" & myname) num = num + 1 with workbooks(1).activesheet .cells(.range("a65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4) for g = 1 to sheets.count wb.sheets(g).usedrange.copy .cells(.range("a65536").end(xlup).row + 1, 1) next wbn = wbn & chr(13) & wb.name wb.close false end with end if myname = dir loop range("a1").select application.screenupdating = true msgbox "共合併了" & num & "個工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示" end sub。 關於[A65536]的含義： 在1995-2006年，excel工作簿包含65536行，但現在的office 2007中工作簿包含1048576行。[A65536]就是A列的最後一行的意思，這段話的意思就是，從A列最後一行向上找，找到有資料的行為止。 如果是[B65536]則是從B列最後一行向上找，找到有資料的行為止。 4、執行之後，等待幾秒鐘，等執行完畢，就是合併完成之後，會有提示，點確定就可以了。檢視合併後的資料，就是同一個資料夾裡面17個excel表資料合併後的結果。效果如圖所示。
步驟如下：
2，開啟你工作表1，ctrl+A，全選複製工作表1的內容，貼上到工作表2中，也可以實現將工作表1的內容複製到工作表2中；, 擴充套件資料： 快速將多個excel表合併成一個excel表： 技術實現：利用excel表的宏計算實現。 注意：金山的WPS沒有宏計算功能。只能用microsoft excel來實現。 具體步驟如下： 1、我們需要把多個excel表都放在同一個資料夾裡面，並在這個資料夾裡面新建一個excel。如圖所示： 2、用microsoft excel開啟新建的excel表，並右鍵單擊sheet1，找到“檢視程式碼”，單擊進去。進去之後就看到了宏計算介面。如圖所示： 3、然後我們把下面這些宏計算的程式碼複製進去，然後找到工具欄上面的“執行”下的“執行子過程/使用者窗體”。 程式碼如下： dim mypath, myname, awbname dim wb as workbook, wbn as string dim g as long dim num as long dim box as string application.screenupdating = false mypath = activeworkbook.path myname = dir(mypath & "\" & "*.xls") awbname = activeworkbook.name num = 0 do while myname "" if myname awbname then set wb = workbooks.open(mypath & "\" & myname) num = num + 1 with workbooks(1).activesheet .cells(.range("a65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4) for g = 1 to sheets.count wb.sheets(g).usedrange.copy .cells(.range("a65536").end(xlup).row + 1, 1) next wbn = wbn & chr(13) & wb.name wb.close false end with end if myname = dir loop range("a1").select application.screenupdating = true msgbox "共合併了" & num & "個工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示" end sub。 關於[A65536]的含義： 在1995-2006年，excel工作簿包含65536行，但現在的office 2007中工作簿包含1048576行。[A65536]就是A列的最後一行的意思，這段話的意思就是，從A列最後一行向上找，找到有資料的行為止。 如果是[B65536]則是從B列最後一行向上找，找到有資料的行為止。 4、執行之後，等待幾秒鐘，等執行完畢，就是合併完成之後，會有提示，點確定就可以了。檢視合併後的資料，就是同一個資料夾裡面17個excel表資料合併後的結果。效果如圖所示。