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