Copy nhiều sheet trong excel

Jennifer thường xuyên phải tạo các bản sao của các trang tính sau khi cô ấy đã thiết lập trang tính đầu tiên của một sổ làm việc và đó thường là một số lượng lớn các bản sao. Chẳng hạn, không có gì lạ khi cô ấy cần tạo 20 bản sao của một trang tính cụ thể. Cô ấy tự hỏi liệu có cách nào để dễ dàng tạo ra nhiều bản sao. Nhấp chuột phải và sử dụng tính năng di chuyển/sao chép sau một thời gian sẽ khá mệt mỏi

Có một cách để sử dụng tùy chọn di chuyển/sao chép hiệu quả hơn một chút. Ví dụ: giả sử bạn muốn tạo 20 trang tính từ trang tính ban đầu của mình. Bạn có thể làm theo các bước sau

1. Đảm bảo trang tính đơn của bạn được chọn
2. Bấm chuột phải vào tab trang tính. Excel hiển thị một menu Ngữ cảnh
3. Chọn Di chuyển hoặc Sao chép từ menu Ngữ cảnh. Excel hiển thị hộp thoại Di chuyển hoặc Sao chép
4. Chọn tùy chọn [di chuyển đến cuối]
5. Đảm bảo hộp kiểm Tạo bản sao được chọn
6. Bấm vào đồng ý. Bây giờ bạn có hai bản sao của trang tính [bản gốc và bản sao bạn vừa tạo]
7. Chọn cả hai trang tính bằng cách nhấp vào tab trang tính đầu tiên và giữ phím Shift khi bạn nhấp vào tab trang tính cuối cùng
8. Bấm chuột phải vào các tab trang tính đã chọn. Excel hiển thị một menu Ngữ cảnh
9. Chọn Di chuyển hoặc Sao chép từ menu Ngữ cảnh. Excel hiển thị hộp thoại Di chuyển hoặc Sao chép
10. Chọn tùy chọn [di chuyển đến cuối]
11. Đảm bảo hộp kiểm Tạo bản sao được chọn
12. Bấm vào đồng ý. Bây giờ bạn có bốn bản sao của trang tính của mình
13. Chọn tất cả các trang tính bằng cách nhấp vào tab trang tính đầu tiên và giữ phím Shift khi bạn nhấp vào tab trang tính cuối cùng
14. Bấm chuột phải vào các tab trang tính đã chọn. Excel hiển thị một menu Ngữ cảnh
15. Chọn Di chuyển hoặc Sao chép từ menu Ngữ cảnh. Excel hiển thị hộp thoại Di chuyển hoặc Sao chép
16. Chọn tùy chọn [di chuyển đến cuối]
17. Đảm bảo hộp kiểm Tạo bản sao được chọn
18. Bấm vào đồng ý. Bây giờ bạn có tám bản sao của trang tính của mình
19. Chọn tất cả các trang tính bằng cách nhấp vào tab trang tính đầu tiên và giữ phím Shift khi bạn nhấp vào tab trang tính cuối cùng
20. Bấm chuột phải vào các tab trang tính đã chọn. Excel hiển thị một menu Ngữ cảnh
21. Chọn Di chuyển hoặc Sao chép từ menu Ngữ cảnh. Excel hiển thị hộp thoại Di chuyển hoặc Sao chép
22. Chọn tùy chọn [di chuyển đến cuối]
23. Đảm bảo hộp kiểm Tạo bản sao được chọn
24. Bấm vào đồng ý. Bây giờ bạn có 16 bản sao trang tính của mình
25. Chọn bốn trong số các trang tính của bạn bằng cách nhấp vào tab trang tính đầu tiên và giữ phím Shift khi bạn nhấp vào tab trang tính thứ tư
26. Bấm chuột phải vào các tab trang tính đã chọn. Excel hiển thị một menu Ngữ cảnh
27. Chọn Di chuyển hoặc Sao chép từ menu Ngữ cảnh. Excel hiển thị hộp thoại Di chuyển hoặc Sao chép
28. Chọn tùy chọn [di chuyển đến cuối]
29. Đảm bảo hộp kiểm Tạo bản sao được chọn
30. Bấm vào đồng ý. Bây giờ bạn có 20 bản sao của trang tính của mình

Điều đó có vẻ giống như nhiều bước, nhưng thực tế không phải vậy—tất cả những gì bạn đã làm là sử dụng tính năng di chuyển/sao chép năm lần thay vì 20 lần để đạt được số lượng trang tính mong muốn. Tuy nhiên, có một lưu ý đối với cách tiếp cận này—nếu trang tính bạn đang sao chép có bất kỳ bảng được xác định nào trong đó, thì bạn sẽ không thể vượt qua bước 8. Khi thử bước 9, bạn sẽ nhận được thông báo nói rằng bạn không thể sao chép hoặc di chuyển một nhóm trang tính khi bất kỳ trang tính nào trong số đó chứa bảng. [Bạn có thể sao chép hoặc di chuyển một trang tính có chứa một bảng, không phải là một nhóm các bảng đó. ]

Có một lối tắt khác mà bạn có thể sử dụng và nó không liên quan đến việc sử dụng hộp thoại Di chuyển hoặc Sao chép. Tất cả những gì bạn cần làm là chọn trang tính bạn muốn sao chép và kéo tên trang tính [trên tab trang tính] sang phải. Bạn sẽ thấy một biểu tượng "tài liệu" nhỏ xuất hiện bên cạnh con trỏ chuột. Nhấn phím Ctrl tại thời điểm này và một dấu cộng xuất hiện bên trong biểu tượng. Khi bạn thả nút chuột, thì trang tính sẽ được sao chép. Bạn cũng có thể sao chép các nhóm trang tính theo cách này trừ khi, một lần nữa, có bất kỳ bảng được xác định nào trong các trang tính trong nhóm

Một tùy chọn khác để sao chép trang tính của bạn là thực hiện như sau

1. Tạo trang tính "chính" của bạn, như mong muốn
2. Thêm đủ các trang tính trống để bạn có một trang tính cho mỗi bản sao bạn muốn tạo. [Một cách hay để thêm các trang tính trống là nhấn Shift+F11. ]
3. Chọn trang tính chính
4. Nhấn Ctrl + A. Excel chọn mọi thứ trong trang tính chính
5. Nhấn Ctrl + C. Mọi thứ hiện được sao chép vào Clipboard
6. Bấm vào tab trang tính cho trang tính trống đầu tiên bạn đã tạo
7. Giữ phím Shift khi bạn bấm vào tab trang tính cho trang tính trống cuối cùng mà bạn đã tạo
8. Nhấn Ctrl + V. Nội dung của Clipboard được dán vào từng trang tính bạn đã chọn

Thao tác này sao chép mọi thứ từ trang tính chính nhưng không sao chép một số thứ như độ rộng cột, chiều cao hàng hoặc cài đặt bố cục in. Bạn có thể thực hiện một số bước bổ sung để sao chép một số trong số này, nhưng rất khó để sao chép tất cả

Tuy nhiên, để có tốc độ và sự thuận tiện tuyệt đối, sử dụng macro để tạo các bản sao [theo quan điểm của tôi] là cách dễ nhất. Đây là một macro rất đơn giản sẽ tạo các bản sao của trang tính đã chọn cho đến khi có tổng cộng 20 trang tính trong sổ làm việc

Sub SimpleCopy1[]
    Do While Sheets.Count < 20
        ActiveSheet.Copy After:=Sheets[Sheets.Count]
    Loop
End Sub

Nếu sổ làm việc của bạn đã có các trang tính bổ sung trong đó [ngoài trang bạn muốn sao chép], thì bạn sẽ có lợi khi sử dụng phiên bản này

Sub SimpleCopy2[]
    Dim J As Integer

    For J = 1 To 20
        ActiveSheet.Copy After:=Sheets[Sheets.Count]
    Next J
End Sub

Bạn có thể làm cho macro của mình có mục đích chung hơn một chút bằng cách hỏi người dùng nên tạo bao nhiêu bản sao

Sub SimpleCopy2[]
    Dim J As Integer
    Dim iWanted As Integer

    On Error GoTo Done
    iWanted = Cint[InputBox["Number of copies?"]]

    If iWanted >0 And iWanted < 201 Then
        For J = 1 To iWanted
            ActiveSheet.Copy After:=Sheets[Sheets.Count]
        Next J
    End If
Done:
    On Error GoTo 0
End Sub

Macro này cũng giới hạn số lượng bản sao trang tính được tạo từ 1 đến 200. [Ngoại trừ phạm vi đó, nó sẽ không làm gì cả. ] Việc xử lý lỗi được thêm vào trong trường hợp sổ làm việc của bạn đã có một số lượng lớn trang tính và việc thêm các trang tính bổ sung vượt quá số lượng trang tính được phép có trong sổ làm việc

Bất kể bạn chọn cách tiếp cận macro nào, bạn nên thêm nó vào Thanh công cụ truy cập nhanh hoặc gán một phím tắt cho nó. Bằng cách đó, bạn có thể sao chép trang tính của mình rất nhanh