的幫助下 剪貼板，您可以一次將所有選定範圍粘貼到另一個範圍或工作表。 請執行以下操作：

1。 點擊 主頁 > ，詳見 剪貼板 組以顯示 剪貼板 麵包.。 看截圖：

2。 然後一一複制所需的選定範圍。 同時，複製的範圍已出現在 剪貼板 麵包. 參見上面的截圖：

3。 選擇將所有復制的範圍粘貼到的目標範圍的第一個單元格，然後單擊 全部粘貼 按鈕在 剪貼板 窗格。

然後，所有復制的範圍都已粘貼到指定的目標範圍中。

輕鬆地將多個工作表/工作簿中的多個選擇組合到單個工作表/工作簿中

將來自不同工作簿的數十張表合併為一張表可能很麻煩。 但是使用Kutools for Excel的 合併（工作表和工作簿） 實用程序，只需單擊幾下就可以完成！

使用VBA代碼，您還可以復制多個選定範圍並將其粘貼到任何其他工作表中。

1。 持有 按Ctrl 鍵，然後選擇要使用的多個非相鄰範圍。

2。 按 其他 + F11 鍵同時打開 適用於應用程序的Microsoft Visual Basic 窗口中，單擊 插入 > 模塊，然後將以下代碼輸入到模塊中：

Option Explicit
Sub CopyMultipleSelection()
Dim SelAreas() As Range
Dim PasteRange As Range
Dim UpperLeft As Range
Dim NumAreas As Integer, i As Integer
Dim TopRow As Long, LeftCol As Integer
Dim RowOffset As Long, ColOffset As Integer
Dim NonEmptyCellCount As Integer
' Exit if a range is not selected
If TypeName(Selection) < > "Range" Then
MsgBox "Select the range to be copied. A multiple selection is allowed."
Exit Sub
End If
' Store the areas as separate Range objects
NumAreas = Selection.Areas.Count
ReDim SelAreas(1 To NumAreas)
For i = 1 To NumAreas
Set SelAreas(i) = Selection.Areas(i)
Next
' Determine the upper left cell in the multiple selection
TopRow = ActiveSheet.Rows.Count
LeftCol = ActiveSheet.Columns.Count
For i = 1 To NumAreas
If SelAreas(i).Row < TopRow Then TopRow = SelAreas(i).Row
If SelAreas(i).Column < LeftCol Then LeftCol = SelAreas(i).Column
Next
Set UpperLeft = Cells(TopRow, LeftCol)
' Get the paste address
On Error Resume Next
Set PasteRange = Application.InputBox _
(Prompt:="Specify the upper left cell for the paste range:", _
Title:="Copy Mutliple Selection", _
Type:=8)
On Error GoTo 0
' Exit if canceled
If TypeName(PasteRange) < > "Range" Then Exit Sub
' Make sure only the upper left cell is used
Set PasteRange = PasteRange.Range("A1")
' Check paste range for existing data
NonEmptyCellCount = 0
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
NonEmptyCellCount = NonEmptyCellCount + _
Application.CountA(Range(PasteRange.Offset(RowOffset, ColOffset), _
PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count - 1, _
ColOffset + SelAreas(i).Columns.Count - 1)))
Next i
' If paste range is not empty, warn user
If NonEmptyCellCount < > 0 Then _
If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _
"Copy Multiple Selection") < > vbYes Then Exit Sub
' Copy and paste each area
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
SelAreas(i).Copy PasteRange.Offset(RowOffset, ColOffset)
Next i
End Sub

3。 然後點擊 運行 按鈕運行代碼。

4。 現在，請指定一個單元格以將範圍粘貼到開頭 複製多項選擇 對話框，然後單擊 OK 按鈕。 看截圖：

複製多個範圍 的效用 Excel的Kutools 可以幫助您輕鬆快速地從活動工作表中復制多個範圍。 請執行以下操作：

1。 選擇要一一使用的範圍，而無需按住 按Ctrl 鍵，然後單擊 庫工具 > 複製範圍。 看截圖：

2。 在 複製多個範圍 對話框，檢查 全部 選項 特殊粘貼 部分，然後單擊 好吧b烏頓。 參見上面的截圖：

注意： 如果要將行高和列寬保持在原始範圍內，請檢查 包括行高 選項和 包括列寬 複製多個範圍對話框中的選項。

3。 然後在以下提示框中指定一個單元格以粘貼範圍，然後單擊 OK 按鈕。

現在，所有選定範圍都將粘貼到指定單元格中，其行高和列寬與原始選擇的行高和列寬相同。

單擊此處以了解有關“複製多個範圍”實用程序的更多信息。       

Kutools for Excel提供了另一個 合併工作表 該實用程序可在Excel中輕鬆地從多個工作表或多個工作簿中復制多個範圍。 請執行以下操作：

1。 點擊 Kutools 加 > 結合.

2.在打開的合併工作表–第1步，共3對話框中，請檢查 將工作簿中的多個工作表合併為一個工作表 選項，然後單擊 下一頁 按鈕。

3。 在“合併工作表–第2步，共3步”對話框中，請執行以下操作：

（1）在 工作簿清單 部分，然後單擊 瀏覽 每個工作表後面的按鈕以指定每個工作表的範圍；
（2）點擊 添加 按鈕添加要從中復制範圍的其他工作簿，然後重複上述（1）以在添加的工作簿中指定範圍。
（3）點擊 完 按鈕。

4。 然後出現一個Kutools for excel對話框，並要求保存組合方案。 請點擊 可以 按鈕或 沒有 按鈕，根據需要。

到目前為止，已復制多個工作表或工作簿中的所有指定範圍，並將其粘貼到新工作簿中。