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ủ > 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!

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:

Sản phẩm 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:

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 được rồi 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 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:

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 Xem 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 .

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 Có 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.