Bạn có thể di chuyển nhiều trang tính trong Excel cùng một lúc không?

Sử dụng Excel cho công việc văn phòng thường phải sao chép trang tính từ sổ làm việc này sang sổ làm việc khác. Bạn có thể cần tổng hợp các báo cáo bán hàng của từng nhân viên vào một sổ làm việc

Hoặc, bạn có thể cần tổng hợp các báo cáo hàng tuần của mình thành sổ làm việc gồm các báo cáo hàng tháng. Trong các trường hợp khác, sếp của bạn có thể muốn xem một số Trang tính Excel cụ thể của bạn từ nhiều sổ làm việc

Dù mục đích là gì, việc sao chép các trang tính riêng lẻ từ sổ làm việc này sang sổ làm việc khác là một quá trình khá đơn giản

Nhưng nếu bạn muốn sao chép nhiều sheet sang một workbook mới thì sao?

Vì vậy, đây là một số cách giúp bạn sao chép nhanh nhiều sheet trong Excel sang workbook mới

Mục lục

Cách sao chép thủ công nhiều trang tính sang sổ làm việc khác

Một cách để sao chép nhiều trang tính sang sổ làm việc khác là thực hiện thủ công

Mặc dù điều này có thể khiến bạn mất thêm vài lần nhấp và vài giây nữa, nhưng nếu thỉnh thoảng bạn chỉ cần thực hiện việc này một lần, thì thực hiện thủ công là cách tốt nhất

Bây giờ có thể có hai tình huống xảy ra khi bạn sao chép trang tính

1. Sao chép tất cả các trang tính (hoặc trang tính đã chọn) vào sổ làm việc đã mở
2. Sao chép các trang tính đã chọn vào sổ làm việc mới

Bạn cũng có thể nghĩ đến kịch bản thứ ba trong đó bạn sao chép tất cả các trang tính sang một sổ làm việc mới, nhưng trong trường hợp đó, sẽ hiệu quả hơn nếu chỉ tạo một bản sao của sổ làm việc thay vì sao chép các trang tính

Sao chép trang tính vào sổ làm việc đã mở

Trước tiên, hãy xem cách sao chép thủ công tất cả các trang tính hoặc nhiều trang tính vào sổ làm việc Excel đã mở

1. Mở sổ làm việc có các trang tính mà bạn muốn sao chép (cũng như trang tính mà bạn muốn sao chép chúng)
2. Giữ phím CTRL trên bàn phím của bạn và chọn các tab của trang tính mà bạn muốn sao chép
3. Giữ con trỏ của bạn trên bất kỳ tab nào trong số các tab trang tính đã chọn này, nhấp chuột phải vào
4. Chọn “Di chuyển hoặc Sao chép” từ menu bật lên xuất hiện. Thao tác này sẽ mở hộp thoại “Di chuyển hoặc Sao chép”
5. Trong hộp thoại 'Di chuyển hoặc Sao chép', nhấp vào nút 'Để đặt. ’ thả xuống và chọn tên sổ làm việc mà bạn muốn sao chép các trang tính đã chọn
6. Chọn tùy chọn 'Tạo bản sao' (nếu không được chọn, trang tính của bạn sẽ bị xóa khỏi sổ làm việc hiện tại và chuyển sang sổ làm việc mới)
7. Nhấp vào OK

Các bước trên sẽ di chuyển một bản sao của tất cả các trang tính đã chọn vào sổ làm việc đã chọn

Mẹo chuyên nghiệp. Trong trường hợp bạn muốn chọn tất cả các trang tính cùng một lúc, hãy chọn tab trang tính đầu tiên, giữ phím SHIFT rồi chọn tab trang tính cuối cùng. Thao tác này cũng sẽ chọn tất cả các trang tính ở giữa

Sao chép các trang tính đã chọn vào sổ làm việc mới

Bây giờ hãy xem cách sao chép và di chuyển một số trang tính trong sổ làm việc hiện tại sang sổ làm việc mới

Dưới đây là các bước để làm điều này

1. Mở sổ làm việc có các trang tính mà bạn muốn sao chép
2. Giữ phím CTRL trên bàn phím của bạn và chọn các tab của trang tính mà bạn muốn sao chép
3. Giữ con trỏ của bạn trên bất kỳ tab nào trong số các tab trang tính đã chọn này, nhấp chuột phải vào
4. Chọn “Di chuyển hoặc Sao chép” từ menu bật lên xuất hiện. Thao tác này sẽ mở hộp thoại “Di chuyển hoặc Sao chép”
5. Trong hộp thoại 'Di chuyển hoặc Sao chép', nhấp vào nút 'Để đặt. ' menu thả xuống và chọn tùy chọn '(sách mới)'
6. Chọn tùy chọn 'Tạo bản sao' (nếu không được chọn, trang tính của bạn sẽ bị xóa khỏi sổ làm việc hiện tại và chuyển sang sổ làm việc mới)
7. Nhấp vào OK

Các bước trên sẽ tự động tạo một sổ làm việc mới và sao chép các trang tính đã chọn vào sổ làm việc mới này. Lưu ý rằng đây là các bản sao và trang tính gốc vẫn còn trong sổ làm việc gốc (vì chúng tôi đã chọn tùy chọn 'Tạo bản sao')

Bây giờ bạn có thể lưu sổ làm việc mới này có các trang tính đã sao chép

Sao chép Trang tính sang Sổ làm việc khác (Sử dụng VBA)

Sao chép các trang tính theo cách thủ công là tốt nếu thỉnh thoảng bạn phải thực hiện, nhưng nếu bạn phải thực hiện thường xuyên, thì việc tự động hóa việc này bằng VBA có thể tốt hơn

Trong phần này, tôi sẽ đề cập đến một số tình huống mà bạn có thể sử dụng VBA để sao chép trang tính từ sổ làm việc này sang sổ làm việc khác

Sao chép các trang tính có tên cụ thể vào một sổ làm việc khác

Nếu bạn luôn có nhu cầu sao chép các trang tính có tên cụ thể vào sổ làm việc mới, bạn có thể dễ dàng thực hiện việc này bằng mã VBA đơn giản

Đoạn mã dưới đây sao chép và di chuyển các trang tính có tên “Bán hàng”, “Tiếp thị” và “Hoạt động” vào một sổ làm việc mới. Tất nhiên, bạn có thể thay đổi tên và thêm/xóa nhiều trang tính hơn để trở thành một phần của mã này

Sub CopySheets()
Workbooks("Book1.xlsx").Sheets("Sales").Copy _
    After:=Workbooks("Dbook.xlsx").Sheets(Workbooks("Dbook.xlsx").Sheets.Count)
Workbooks("Book1.xlsx").Sheets("Marketing").Copy _
    After:=Workbooks("Dbook.xlsx").Sheets(Workbooks("Dbook.xlsx").Sheets.Count)
Workbooks("Book1.xlsx").Sheets("Operations").Copy _
    After:=Workbooks("Dbook.xlsx").Sheets(Workbooks("Dbook.xlsx").Sheets.Count)
End Sub

Đoạn mã trên chỉ cần sao chép các trang tính có tên được chỉ định (Sales, Marketing, Operations trong ví dụ này) và di chuyển bản sao vào sổ làm việc đích (là Dbook. xlsx)

Trong trường hợp này, bạn có thể chạy mã VBA trong bất kỳ sổ làm việc nào

Một trường hợp sử dụng tốt khác của mã này có thể là khi bạn có nhiều sổ làm việc và bạn muốn sao chép cũng như đưa các trang tính cụ thể vào sổ làm việc đích

Ví dụ: giả sử bạn có ba sổ làm việc – với tên WB1, WB2 và WB3 và bạn muốn lấy các trang tính từ các sổ làm việc này vào sổ làm việc đích

Thay vì thực hiện từng bước một cho từng sổ làm việc, bạn có thể chỉnh sửa mã VBA ở trên để nhận các trang tính cụ thể từ nhiều sổ làm việc vào sổ làm việc đích

Dưới đây là đoạn mã sẽ sao chép và di chuyển một trang tính (có tên là “Tóm tắt”) từ tất cả các sổ làm việc vào sổ làm việc đích (DBook. xlsx trong ví dụ này)

Sub CopySheets()
Workbooks("Sales.xlsx").Sheets("Summary").Copy _
    After:=Workbooks("Dbook.xlsx").Sheets(Workbooks("Dbook.xlsx").Sheets.Count)
Workbooks("Marketing.xlsx").Sheets("Summary").Copy _
    After:=Workbooks("Dbook.xlsx").Sheets(Workbooks("Dbook.xlsx").Sheets.Count)
Workbooks("Operations.xlsx").Sheets("Summary").Copy _
    After:=Workbooks("Dbook.xlsx").Sheets(Workbooks("Dbook.xlsx").Sheets.Count)
End Sub

Mã VBA này cần được chạy trong DBook. sổ làm việc xlsx

Sao chép trang tính có văn bản cụ thể vào sổ làm việc khác

Trong một số trường hợp, bạn có thể có một sổ làm việc và bạn muốn sao chép tất cả các trang tính có một từ cụ thể trong đó

Ví dụ: tôi có thể muốn sao chép và di chuyển tất cả các trang tính có văn bản 2020 trong đó sang sổ làm việc khác (giả sử DBook. xlsx)

Mã VBA sau đây có thể làm điều này

Sub CopySheets()
Dim Sh As Worksheet
For Each Sh In Worksheets
    If InStr(1, Sh.Name, "2020", vbBinaryCompare) > 0 Then
        Sh.Copy After:=Workbooks("Dbook.xlsx").Sheets(Workbooks("Dbook.xlsx").Sheets.Count)
    End If
Next Sh
End Sub

Ở trên sử dụng hàm INSTR để tìm vị trí của văn bản 2020 trong tên trang tính. Nếu nó tìm thấy văn bản trong tên trang tính thì nó sao chép trang tính đó, nếu không thì không

Vì vậy, mã này sẽ đảm bảo rằng chỉ những trang tính có chuỗi văn bản cụ thể mới được sao chép

Điều này có thể thực sự hữu ích nếu bạn có một sổ làm việc lớn và bạn muốn nhanh chóng tách các trang tính dựa trên năm hoặc bộ phận hoặc bất kỳ mã nào khác được đề cập trong mỗi tên trang tính

Mã VBA này cần được chạy trong trang tính nơi bạn có các trang tính cần sao chép. Ngoài ra, lưu ý rằng bạn cần mở sổ làm việc đích để làm việc này

Vì vậy, đây là một số cách bạn có thể sử dụng để sao chép nhiều trang tính sang sổ làm việc mới hoặc bất kỳ sổ làm việc đang mở nào khác. Trong hầu hết các trường hợp, thực hiện thủ công sẽ phục vụ mục đích này, nhưng trong trường hợp bạn cần thực hiện việc này khá thường xuyên, bạn cũng có thể tự động hóa quy trình này bằng các mã VBA đơn giản được đề cập ở trên

Phím tắt để di chuyển nhiều trang tính trong Excel là gì?

Bạn có thể di chuyển hoặc sao chép nhiều trang tính trong Excel không?