復制工作簿的方法(如何復制整個(gè)Excel工作表)
1.如何復制整個(gè)Excel工作表
可以先Ctrl+A全選再Ctrl+C復制。
1、以excel2010版本為例，如下圖所示，要復制整個(gè)表格的數據；
2、首先把鼠標放在有數據的任一單元格，點(diǎn)擊選中該單元格；
3、按Ctrl+A全選有數據的單元格，如下圖所示所選單元格變色即表示已全選中；
4、再按Ctrl+C復制，即該表格處于復制狀態(tài)了，去目標區域粘貼即可；
5、如果要復制整個(gè)工作表，包括空白部分，那么把鼠標放在空白單元格，即沒(méi)有數據的單元格，點(diǎn)擊；
6、按Ctrl+A全選，即可選擇整個(gè)excel單元格了，再按Ctrl+C復制，去粘貼就好。
2.excel工作簿怎么復制工作表
Excel中可以全選工作表，然后復制，再到另外一張工作表中粘貼，即可將整個(gè)工作表復制到另外的工作表中。
軟件版本：Office2007
方法如下：
1.首先，全選工作表。這里介紹兩個(gè)方法：①左上角點(diǎn)擊行列交匯處②按下Ctrl+A
2.按下Ctrl+C鍵，這時(shí)候會(huì )看到整個(gè)工作表被復制了：
3.到一個(gè)新的Excel工作表中，參考步驟1，全選：
4.按下Ctrl+V，這時(shí)候，就將原來(lái)的整個(gè)工作表全部復制到新的工作表中了：
3.EXcel 表格如何快速批量復制粘貼的方法
1、選中你要復制到的2113單元格，假如我們要復制李星到A4單元格，那么就要選中A4單元格。
2、按下ctrl+D，你就會(huì )5261看到上面的單元格被復制到下面了。
3、假如你要復制多個(gè)單4102元格，你可以選中多1653個(gè)單元格如圖所示。按下ctrl+d，就可以將上面所有的單元格數據復制。
4、按下ctrl+r，快速內復制左側的單元格，你會(huì )看到這個(gè)效果。
5、這是容復制之后的效果。
4.如何把多個(gè)excel工作簿的內容復制到一張工作簿上面
你可以手動(dòng)完成這一工作，但這個(gè)工作可能會(huì )花費你一整天的時(shí)間。要完成合并工作，最好使用宏，這樣只需花幾分鐘便可搞定。本文所介紹的技巧將向你說(shuō)明如何創(chuàng )建這樣一個(gè)宏，看看如何使用宏來(lái)節省你的寶貴時(shí)間。（本技巧可應用于Microsoft Excel 97、Excel 2000、Excel 2002、和Excel 2003。）
Joydip Das在合并數個(gè)工作簿時(shí)遇到了問(wèn)題。這些工作簿總數約有200，保存在同一文件夾中，其中大多數工作簿中只包含一個(gè)單獨的工作表，但有些工作簿包含多個(gè)工作表。這些工作簿中的工作表需要被添加到一個(gè)新的工作簿中。
合并數量如此巨大的工作簿的最簡(jiǎn)單方法——如果經(jīng)常要這樣做的話(huà)——是使用宏。下面的宏會(huì )顯示一個(gè)對話(huà)框，提示你選擇要合并的文件。（你可以通過(guò)按下Ctrl鍵單擊的方法選擇多個(gè)工作簿。）它會(huì )使用代碼在你所選的工作簿列表中循環(huán)，打開(kāi)每個(gè)工作簿并將其中的工作表移動(dòng)到工作簿的末尾。
由于下面全是圖文，我就留個(gè)網(wǎng)址，你可以電進(jìn)去看看，很詳細
5.excel如何把多個(gè)工作薄的內容快速復制到一個(gè)工作薄中
必須用VBA:
新建一個(gè)工作表，命名后保存到和與合并的多個(gè)個(gè)文件同一個(gè)文件文件夾，摁 alt + f11，雙擊工程資源管理器里面的sheet1(sheet1)，在右側的代碼區粘貼如下代碼。運行。等候一會(huì )就OK了。
Sub 合并當前目錄下所有工作簿的全部工作表（）
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 & "個(gè)工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation， "提示"
End Sub
