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
Đ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
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 |