Note: The other languages of the website are Google-translated. Back to English

如何在Excel中復制多個選擇或範圍?

例如,您有一個很大的工作表,現在您只想複製一些選定範圍並分發到其他工作表。 但是,當您選擇多個範圍並單擊“複製”時,將出現一個提示對話框,提醒您“該命令不能用於多個選擇。” 在這種情況下,如何快速復制多個選定範圍? 這裡有一些技巧可以幫助您解決此任務。


使用剪貼板複製多個選定範圍

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

1。 點擊 首頁 > doc複製多個範圍09剪貼板 組以顯示 剪貼板 麵包.。 看截圖:

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

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

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

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

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


廣告組合床單書1

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

使用VBA代碼複製多個選定範圍

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

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

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

選項顯式子CopyMultipleSelection()Dim SelAreas()作為範圍Dim PasteRange作為範圍Dim UpperLeft作為範圍Dim NumAreas作為整數,i作為整數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 Sub

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

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


從一個工作表中快速復制多個選定範圍

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

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

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

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

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

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

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

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

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!


從許多工作表/工作簿中復制多個範圍

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

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

1。 點擊 Kutools 加 > 結合.

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

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

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

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

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

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


演示:從一個工作表中復制多個選定範圍

演示:從許多工作簿/工作表中復制多個選定範圍


Excel的Kutools 包含 300 多種 Excel 便捷工具,30 天內免費試用,無限制。 立即下載並免費試用!

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (14)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
我想選擇像 1、5,6,10、XNUMX、XNUMX 這樣的行。 那麼我怎樣才能複制這些行???
網站主持人對此評論進行了最小化
在這種情況下,您可以像往常一樣選擇行並複制它們。
網站主持人對此評論進行了最小化
如何復制單元格 a1、e5、g2 等....(同一列中超過 1000 個單元格)並將它們粘貼到 b1、f5、h2 中(直接粘貼到同一行的下一列中。)
網站主持人對此評論進行了最小化
發現上面對複制多個範圍的選項的解釋非常有幫助 - 謝謝! 我使用“剪貼板”選項複製多行。 必須選擇每組連續行並複制它,繼續並選擇下一行或一組連續行並複制它等等。但是在這之後很容易,轉到您要粘貼它們的位置,例如新工作表,然後單擊剪貼板中的“全部粘貼”,所有行都被複製到那裡,沒有任何間隙! 正是我想要的——再次感謝!
網站主持人對此評論進行了最小化
非常感謝你 - 多麼棒的網站
網站主持人對此評論進行了最小化
我發現如果你打開了剪貼板任務平面,你可以簡單地使用 ctrl+C 複製多行,然後使用 Excel 2007 使用 crtl+V 按順序粘貼它們。
網站主持人對此評論進行了最小化
嗨,是否可以調整代碼以便將復制的單元格粘貼到另一張表中? 現在,當我嘗試此操作時,我收到錯誤消息“400”。 我使用Office 2010。另外,是否可以復制以刪除空行? 我有一個大文檔,我複制了一些單元格,它們之間有數百個未復制的行。 這使得輸出相當龐大。
網站主持人對此評論進行了最小化
感謝您的代碼,完美運行。 Excel 中這種奇怪的功能缺失在過去曾多次難倒我。 最終解決它通常會更快,但在這種情況下,我有 4000 個單獨顏色編碼的單元格,所以任何解決方法都需要很長時間,所以我非常感激。 史蒂夫
網站主持人對此評論進行了最小化
你好! 我如何使用上面相同的 VBA 代碼,而不是簡單地粘貼,我希望它只為值粘貼特殊的。 我將值(常量)放入的表已經格式化並帶有總計(公式)
非常感謝!
網站主持人對此評論進行了最小化
嗨卡特里娜馬納漢,

請打開 Microsoft Visual Basic for applications 窗口,並創建一個新模塊,只需按 CTRL + V 直接粘貼 VBA 代碼。 代碼前的序號不會被粘貼。
網站主持人對此評論進行了最小化
你好。 代碼不錯,效果很好。 是否可以以一種可以多次插入/粘貼市場行/範圍而不是一次的方式修改代碼?
網站主持人對此評論進行了最小化
嗨雅各布,
也許 Kutools for Excel 的插入標題行功能可以解決您的問題。
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
網站主持人對此評論進行了最小化
你好,
很棒的帖子,VBA 代碼完美運行。 是否可以更改代碼以粘貼特殊 > 值? 如果是這樣,怎麼做?
謝謝!
網站主持人對此評論進行了最小化
你好,
很棒的代碼,但想知道如何粘貼值而不僅僅是粘貼?
謝謝 :)
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護