如何在Excel中復制多個選擇或范圍？
例如，您有一個很大的工作表，現在您只想復制一些選定范圍并分發到其他工作表。 但是，當您選擇多個范圍并單擊“復制”時，將出現一個提示對話框，提醒您“該命令不能用于多個選擇。” 在這種情況下，如何快速復制多個選定范圍？ 這里有一些技巧可以幫助您解決此任務。
使用剪貼板復制多個選定范圍使用VBA代碼復制多個選定范圍從一個工作表中復制多個選定范圍從許多工作表/工作簿中復制多個范圍 使用剪貼板復制多個選定范圍的幫助下 剪貼板，您可以一次將所有選定范圍粘貼到另一個范圍或工作表。 請執行以下操作：
1。 點擊 首頁 > ，在 剪貼板 組以顯示 剪貼板 面包.
。 看截圖：
2。 然后一一復制所需的選定范圍。 同時，復制的范圍已出現在 剪貼板 面包. 參見上面的截圖：
3。 選擇將所有復制的范圍粘貼到的目標范圍的第一個單元格，然后單擊 全部粘貼 按鈕在 剪貼板 窗格。
然后，所有復制的范圍都已粘貼到指定的目標范圍中。
輕松地將多個工作表/工作簿中的多個選擇組合到單個工作表/工作簿中將來自不同工作簿的數十張工作表合并到一張工作表中可能會很乏味。 但是隨著 Kutools for Excel“ 合并（工作表和工作簿） 實用程序，只需單擊幾下就可以完成！
全功能 30-天！Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能 立即行動吧!
使用VBA代碼復制多個選定范圍使用VBA代碼，您還可以復制多個選定范圍并將其粘貼到任何其他工作表中。
1。 拿著 按Ctrl 鍵，然后選擇要使用的多個非相鄰范圍。
2。 按 其他 + F11 按鍵同時打開 適用于應用程序的Microsoft Visual Basic 窗口中，單擊 插頁 > 模塊，然后將以下代碼輸入到模塊中：
選項顯式子CopyMultipleSelection（）Dim SelAreas（）作為范圍Dim PasteRange作為范圍Dim UpperLeft作為范圍Dim NumAreas作為整數，我作為Integer Dim TopRow如長，LeftCol作為整數Dim RowOffset如長，ColOffset如整數Dim NonEmptyCellCount如整數如果未選擇范圍，則如果TypeName（Selection）<>“ Range”，則MsgBox“選擇要復制的范圍。允許多項選擇。” 退出子結束如果將區域存儲為單獨的范圍對象，則NumAreas = Selection.Areas.Count ReDim SelAreas（1到NumAreas）對于i = 1到NumAreas設置SelAreas（i）= Selection.Areas（i）Next確定左上角多個選擇中的單元格TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count對于i = 1到NumAreas如果SelAreas（i）.Row <TopRow然后TopRow = SelAreas（i）.Row如果SelAreas（i）.Column <LeftCol然后LeftCol = SelAreas（i）。列Next Set UpperLeft = Cells（TopRow，LeftCol）在錯誤繼續時獲取粘貼地址Next Set PasteRange = Application.InputBox _（prompt：=“請指定粘貼的左上單元格范圍：“，_標題：=”復制多重選擇“，_類型：= 8）發生錯誤時GoTo 0如果取消，則退出如果TypeName（PasteRange）<>” Range“然后退出Sub確保僅左上方的單元格使用的Set PasteRange = PasteRange.Range（“ A1”）檢查現有數據的粘貼范圍NonEmptyCellCount = 0對于i = 1到NumAreas RowOffset = SelAreas（i）。行-TopRow ColOffset = Sel Areas（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）））接下來的i如果粘貼范圍不為空，則警告用戶If NonEmptyCellCount <> 0則_如果MsgBox（“是否覆蓋現有數據？”，vbQuestion + vbYesNo，_“復制多個選擇“）<> vbYes然后退出Sub復制并粘貼每個區域，對于i = 1到NumAreas RowOffset = SelAreas（i）。行-TopRow ColOffset = SelAreas（i）。列-LeftCol SelAreas（i）.Copy PasteRange.Offset（ RowOffset，ColOffset）下一個i End Sub3。 然后點擊 運行 按鈕運行代碼。
4。 現在，請指定一個單元格以將范圍粘貼到開頭 復制多項選擇 對話框，然后單擊 OK
按鈕。 看截圖：
從一個工作表中快速復制多個選定范圍
復制多個范圍 實用程序 Kutools for Excel 可以幫助您輕松快速地從活動工作表中復制多個范圍。 請執行以下操作：
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能 立即行動吧!
1。 選擇要一一使用的范圍，而無需按住 按Ctrl 鍵，然后單擊 Kutools > 復制范圍
。 看截圖：
2。 在 復制多個范圍 對話框，檢查 所有類型 選項 特殊粘貼 部分，然后單擊 好吧b烏頓。 參見上面的截圖：
請注意： 如果要將行高和列寬保持在原始范圍內，請檢查 包括行高 選項和 包括列寬 復制多個范圍對話框中的選項。
3。 并在以下提示框中指定一個單元格以粘貼范圍，然后單擊 OK
按鈕。
現在，所有選定范圍都將粘貼到指定單元格中，其行高和列寬與原始選擇的行高和列寬相同。
單擊此處，了解有關“復制多個范圍”實用程序的更多信息。
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能 立即行動吧!
從許多工作表/工作簿中復制多個范圍Kutools for Excel 提供另一個 合并工作表 該實用程序可在Excel中輕松地從多個工作表或多個工作簿中復制多個范圍。 請執行以下操作：
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能 立即行動吧!
1。 點擊 Kutools 加 > 結合.
2.在打開的合并工作表–第1步，共3對話框中，請檢查 將工作簿中的多個工作表合并為一個工作表 選項，然后單擊 接著
按鈕。
3
。 在“合并工作表–第2步，共3步”對話框中，請執行以下操作：
（1）在 工作簿清單 部分，然后單擊 瀏覽每個工作表后面的按鈕以指定每個工作表的范圍；
（2）點擊 地址按鈕添加要從中復制范圍的其他工作簿，然后重復上述（1）以在添加的工作簿中指定范圍。
（3）點擊 完成 按鈕。Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能 立即行動吧!
4。 然后一個 Kutools for excel 對話框出現并要求保存組合場景。 請點擊 是 按鈕或 沒有
按鈕，根據需要。
到目前為止，已復制多個工作表或工作簿中的所有指定范圍，并將其粘貼到新工作簿中。
演示：從一個工作表中復制多個選定范圍演示：從許多工作簿/工作表中復制多個選定范圍 Kutools for Excel 包括適用于Excel的300多種便捷工具，可以在之內。 立即下載并!最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
