Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để sao chép nhiều lựa chọn hoặc phạm vi trong Excel?

Ví dụ: bạn có một trang tính lớn và bây giờ bạn chỉ muốn sao chép một số phạm vi đã chọn và phân phối sang các trang tính khác. Nhưng khi bạn chọn nhiều phạm vi và nhấp vào sao chép, sẽ có một hộp thoại nhắc nhở bạn “Không thể sử dụng lệnh đó trên nhiều lựa chọn”. Trong điều kiện này, làm cách nào để bạn nhanh chóng sao chép nhiều phạm vi đã chọn? Dưới đây là một số thủ thuật để bạn giải quyết công việc này.


Sao chép nhiều phạm vi đã chọn bằng Bảng tạm

Với sự giúp đỡ của Clipboard, bạn có thể dán tất cả các phạm vi đã chọn vào một phạm vi hoặc trang tính khác cùng một lúc. Vui lòng làm như sau:

1. Nhấp chuột Trang chủ > doc sao chép nhiều dãy 09 trong Clipboard nhóm để hiển thị Clipboard Bánh mì.. Xem ảnh chụp màn hình:

2. Và sau đó sao chép từng phạm vi đã chọn mà bạn cần. Đồng thời, các phạm vi được sao chép đã xuất hiện trong Clipboard Bánh mì. xem ảnh chụp màn hình ở trên:

3. Chọn ô đầu tiên của dải ô đích mà bạn sẽ dán tất cả các dải ô đã sao chép vào và nhấp vào Dán tất cả nút trong Clipboard Khung.

Và sau đó tất cả các phạm vi được sao chép đã được dán vào phạm vi đích được chỉ định.

Dễ dàng kết hợp nhiều lựa chọn từ nhiều trang tính / sổ làm việc thành một trang tính / sổ làm việc

Có thể tẻ nhạt khi kết hợp hàng chục trang tính từ các sổ làm việc khác nhau thành một trang tính. Nhưng với Kutools cho Excel's Kết hợp (trang tính và sổ làm việc) tiện ích, bạn có thể hoàn thành nó chỉ với vài cú nhấp chuột! Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày!
ad kết hợp sách 1

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now

Sao chép nhiều phạm vi đã chọn bằng mã VBA

Với mã VBA, bạn cũng có thể sao chép nhiều phạm vi đã chọn và dán chúng vào bất kỳ trang tính nào khác.

1. Giữ Ctrl và chọn nhiều phạm vi không liền kề mà bạn muốn sử dụng.

2. nhấn Khác + F11 chìa khóa cùng một lúc để mở Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đunvà nhập mã sau vào Mô-đun:

Option rõ ràng 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 nếu một phạm vi không được chọn Nếu TypeName (Lựa chọn) <> "Phạm vi" Sau đó MsgBox "Chọn phạm vi sẽ được sao chép. Cho phép nhiều lựa chọn." Thoát Sub End If 'Lưu trữ các vùng dưới dạng các đối tượng Phạm vi riêng biệt NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Đặt SelAreas (i) = Selection.Areas (i) Next' Xác định phía trên bên trái ô trong nhiều lựa chọn 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 Đặt UpperLeft = Cells (TopRow, LeftCol) 'Lấy địa chỉ dán Khi Tiếp tục Lỗi Tiếp theo Đặt PasteRange = Application.InputBox _ (Nhắc: = "Chỉ định ô phía trên bên trái để dán range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) Khi Lỗi GoTo 0 'Thoát nếu bị hủy Nếu TypeName (PasteRange) <>" Range "Sau đó Thoát Sub' Đảm bảo chỉ ô phía trên bên trái là đã sử dụng Đặt PasteRange = PasteRange.Range ("A1") 'Kiểm tra phạm vi dán cho dữ liệu hiện có NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Các khu vực (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Phạm vi (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset + SelAffet) (i) .Columns.Count - 1))) Tiếp theo i 'Nếu dải dán không trống, hãy cảnh báo người dùng If NonEmptyCellCount <> 0 Then _ If MsgBox ("Ghi đè dữ liệu hiện có?", vbQuestion + vbYesNo, _ "Sao chép Nhiều lựa chọn ") <> vbYes Sau đó thoát Sub 'Sao chép và dán từng khu vực 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. Sau đó nhấp vào chạy để chạy mã.

4. Và bây giờ hãy chỉ định một ô để dán các phạm vi vào phần mở đầu Sao chép nhiều lựa chọn hộp thoại và nhấp vào OK cái nút. Xem ảnh chụp màn hình:


Sao chép nhanh nhiều phạm vi đã chọn từ một trang tính

Mô hình Sao chép nhiều dải tiện ích của Kutools cho Excel có thể giúp bạn dễ dàng sao chép nhiều phạm vi từ trang tính đang hoạt động một cách nhanh chóng. Vui lòng làm như sau:

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now

1. Chọn từng phạm vi bạn muốn sử dụng mà không cần giữ Ctrl phím, sau đó bấm Kutools > Sao chép phạm vi. Xem ảnh chụp màn hình:

2. Trong Sao chép nhiều dải hộp thoại, kiểm tra Tất cả tùy chọn từ Dán đặc biệt phần và nhấp vào Ok button. Xem ảnh chụp màn hình ở trên:

Lưu ý: Nếu bạn muốn giữ chiều cao hàng và chiều rộng cột như các phạm vi ban đầu, vui lòng kiểm tra Bao gồm cả chiều cao hàng lựa chọn và Bao gồm chiều rộng cột trong hộp thoại Sao chép Nhiều Dải ô.

3. Và chỉ định một ô để dán các phạm vi trong hộp nhắc sau và nhấp vào OK .

Và bây giờ tất cả các phạm vi đã chọn sẽ được dán vào ô được chỉ định có cùng chiều cao hàng và chiều rộng cột như các lựa chọn ban đầu.

Bấm vào đây để biết thêm thông tin về tiện ích Sao chép nhiều dải       

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now


Sao chép nhiều phạm vi từ nhiều trang tính / sổ làm việc

Kutools cho Excel cung cấp một Kết hợp các bảng tính tiện ích để sao chép nhiều phạm vi từ nhiều trang tính hoặc nhiều sổ làm việc một cách dễ dàng trong Excel. Vui lòng làm như sau:

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now

1. nhấp chuột Kutools Plus > Kết hợp.

2. Trong hộp thoại Mở Kết hợp Bảng tính - Bước 1/3, vui lòng đánh dấu vào Kết hợp nhiều trang tính từ sổ làm việc thành một trang tính và nhấp vào Sau .

3. Trong hộp thoại Kết hợp các Bảng tính - Bước 2/3, vui lòng thực hiện như sau:

(1) Chọn sổ làm việc trong Danh sách sổ làm việc và sau đó bấm vào Duyệt nút phía sau mỗi trang tính để chỉ định phạm vi từ mỗi trang tính;
(2) Nhấp vào Thêm để thêm các sổ làm việc khác mà bạn sẽ sao chép các phạm vi, rồi lặp lại ở trên (1) để chỉ định các phạm vi trong sổ làm việc đã thêm.
(3) Nhấp vào Kết thúc .

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now

4. Sau đó, một hộp thoại Kutools cho excel xuất hiện và yêu cầu lưu kịch bản kết hợp. Vui lòng nhấp vào nút hoặc Không khi bạn cần.

Cho đến nay tất cả các phạm vi được chỉ định từ nhiều trang tính hoặc sổ làm việc đã được sao chép và dán vào một sổ làm việc mới.


Demo: Sao chép nhiều phạm vi đã chọn từ một trang tính

Demo: Sao chép nhiều phạm vi đã chọn từ nhiều sổ làm việc / trang tính


Kutools cho Excel bao gồm hơn 300 công cụ tiện dụng cho Excel, miễn phí dùng thử không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Super Formula Bar (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọc...
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãy...
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xét...
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDF...
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    peter.habershon@eis2win.co.uk · 2 years ago
    Hi there,
    Great code but wondered how I can paste values rather than just paste?
    Thanks :)
  • To post as a guest, your comment is unpublished.
    Peter Habershon · 2 years ago
    Hi there,
    Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
    Thanks!
  • To post as a guest, your comment is unpublished.
    jacobkring@hotmail.com · 3 years ago
    Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 3 years ago
      Hi Jacob,
      Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
      https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
  • To post as a guest, your comment is unpublished.
    kmmanahan · 3 years ago
    Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
    Thanks so much in advance!
    • To post as a guest, your comment is unpublished.
      · 3 years ago
      Hi Katrina Manahan,

      Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
  • To post as a guest, your comment is unpublished.
    Steve O · 5 years ago
    Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful.
    Steve
  • To post as a guest, your comment is unpublished.
    David Hedin · 5 years ago
    Hi,
    Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010.

    Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
  • To post as a guest, your comment is unpublished.
    Yunivor · 5 years ago
    I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
  • To post as a guest, your comment is unpublished.
    M · 6 years ago
    Thank you SOOOOOO much - what a great site
  • To post as a guest, your comment is unpublished.
    Lyn Mc · 6 years ago
    Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
  • To post as a guest, your comment is unpublished.
    Abani Pattanayak · 6 years ago
    I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
    • To post as a guest, your comment is unpublished.
      David Hedin · 5 years ago
      In this case you can just select the rows and copy them as usual.
      • To post as a guest, your comment is unpublished.
        K Raj · 4 years ago
        How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)