Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để sao chép nhiều trang tính nhiều lần trong Excel?

Đôi khi, chúng tôi có thể cần tạo một bản sao hoặc nhiều bản sao của các trang tính được chỉ định trong một sổ làm việc. Dưới đây là một số cách nhanh chóng giúp bạn dễ dàng sao chép một trang tính hoặc nhiều trang tính nhiều lần trong Excel.


Tạo một bản sao của nhiều trang tính cùng một lúc vào sổ làm việc đang hoạt động hoặc một sổ làm việc khác bằng lệnh Di chuyển hoặc Sao chép

Với Di chuyển hoặc sao chép trong Excel, bạn có thể tạo một bản sao của một trang tính, nhiều trang tính cụ thể hoặc tất cả các trang tính vào sổ làm việc đang hoạt động hoặc một sổ làm việc khác tại một thời điểm.

1. Trong sổ làm việc nhất định nơi bạn sẽ sao chép trang tính, hãy chọn nhiều trang tính trên thanh Tab Trang tính.
Chú thích: Giữ CTRL chính, bạn có thể chọn nhiều tab trang tính không liền kề bằng cách nhấp vào chúng lần lượt trên thanh Tab Trang tính; giữ SHIFT , bạn có thể chọn nhiều tab trang tính liền kề bằng cách nhấp vào tab trang tính đầu tiên và tab cuối cùng trên thanh Tab trang tính.

2. Nhấp chuột phải vào tab trang tính đã chọn trên thanh Tab Trang tính và chọn Di chuyển hoặc sao chép từ menu ngữ cảnh. Xem ảnh chụp màn hình:
doc sao chép nhiều tờ 01

3. Trong Di chuyển hoặc sao chép hộp thoại, vui lòng chỉ định các cài đặt sau:
(1) Vui lòng chỉ định sổ làm việc đích mà bạn sẽ sao chép các trang tính vào từ Đặt danh sách thả xuống. Bạn có thể chọn sổ làm việc đang hoạt động, một sổ làm việc đang mở khác hoặc một sổ làm việc mới nếu bạn cần.
(2) Chỉ định vị trí của các trang đã sao chép trên thanh Tab Trang tính, bạn có thể chọn sau tất cả các trang hiện có.
(3) Kiểm tra Tạo một bản sao tùy chọn, nếu bạn không chọn tùy chọn này, các trang tính đã chọn sẽ được chuyển vào sổ làm việc đích.
(4) Nhấp vào OK .

Bây giờ nó sẽ chỉ tạo một bản sao các trang tính đã chọn vào sổ làm việc được chỉ định. Để tạo nhiều bản sao của các trang tính này, bạn có thể lặp lại thao tác nhiều lần.

Chỉ vài cú nhấp chuột để tạo nhiều bản sao của nhiều trang tính trong sổ làm việc đang hoạt động

Nói chung, chúng tôi có thể sao chép nhiều trang tính với Di chuyển hoặc sao chép tính năng trong Excel. Tuy nhiên, tính năng này chỉ có thể tạo một bản sao tại một thời điểm. Đây, với Kutools cho Excel's Sao chép trang tính tiện ích, bạn có thể dễ dàng tạo nhiều bản sao của nhiều trang tính như bạn cần trong sổ làm việc đang hoạt động chỉ bằng vài cú nhấp chuột.


ad copy nhiều worksheet 01

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 30-ngày, không cần thẻ tín dụng! Get It Now

Tạo nhiều bản sao của một trang tính được chỉ định vào sổ làm việc đang hoạt động với mã VBA

Nếu bạn muốn tạo 10 bản sao của một trang tính cụ thể, Di chuyển hoặc sao chép lệnh sẽ là một cách tốn nhiều thời gian và bạn phải lặp lại thao tác nhiều lần. Nhưng với mã VBA sau, bạn có thể nhanh chóng sao chép trang tính 10 lần cùng một lúc.

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

VBA: Tạo nhiều bản sao của một trang tính nhất định vào sổ làm việc đang hoạt động

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Chú thích: Trong đoạn mã trên, hãy thay thế "Sheet1"với tên của trang tính sẽ được sao chép.

3. Sau đó nhấn F5 để chạy mã, một hộp nhắc xuất hiện để hỏi bạn số lượng bản sao trang tính mà bạn muốn.

4. Sau đó nhấn vào OK, trang tính được chỉ định đã được sao chép 100 lần trong sổ làm việc đang hoạt động.


Tạo nhiều bản sao của nhiều trang tính vào sổ làm việc đang hoạt động với Kutools cho Excel

Mặc dù việc tạo bản sao nhiều trang tính trong Excel rất đơn giản, nhưng nếu bạn muốn tạo nhiều bản sao của nhiều trang tính trong sổ làm việc hiện tại, bạn có thể phải sử dụng Di chuyển hoặc sao chép mục lệnh lặp đi lặp lại. Bạn có muốn hoàn thành công việc chỉ trong một cú nhấp chuột? Với Sao chép trang tính tiện ích của phần bổ trợ bên thứ ba Kutools cho Excel, bạn có thể tạo nhiều bản sao của nhiều trang tính bằng một cú nhấp chuột trong Excel.

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 30-ngày, không cần thẻ tín dụng! Get It Now

1. Nhấp chuột Kutools Plus > Sao chép trang tính. Xem ảnh chụp màn hình:

Chú thích: Nhấp chuột Kutools Plus > Bảng > Sao chép trang tính cũng sẽ nhận được tính năng này.

2. Áp dụng cài đặt trong Sao chép nhiều trang tính hộp thoại:
(1) Kiểm tra các trang tính bạn muốn sao chép từ đó Sao chép các trang tính đã chọn phần.
(2) Chỉ định Số lượng bản sao.
(3) Xác định vị trí của các trang tính đã sao chép, ví dụ, trước hoặc sau tất cả các trang tính, trước hoặc sau trang tính hiện tại.
(4) Nhấp vào Ok .

3. Một hộp nhắc nhở bật ra để nhắc bạn rằng các trang tính đã chọn đã được sao chép thành nhiều lần khi bạn cần, vui lòng nhấp vào OK để thoát khỏi nó. Xem ảnh chụp màn hình:

T Sao chép nhiều trang tính tính năng của Kutools cho Excel sẽ tạo nhiều bản sao của nhiều trang tính được chỉ định trong sổ làm việc đang hoạt động chỉ với vài cú nhấp chuột. Có một bản dùng thử miễn phí!


Tạo một bản sao của nhiều trang tính từ nhiều sổ làm việc thành một bản sao mới

Nếu bạn đã cài đặt Kutools cho Excel, bạn cũng có thể áp dụng Kết hợp các bảng tính tính năng tạo một bản sao của nhiều trang tính từ nhiều sổ làm việc đã đóng thành một sổ làm việc mới chỉ với vài cú nhấp chuột trong Excel.

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 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 để kích hoạt tính năng Kết hợp Trang tính.

2. Trong phần Kết hợp các Trang tính - Trình hướng dẫn Bước 1/3, vui lòng kiểm tra 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 cái nút. Xem ảnh chụp màn hình:

3. Trong trình hướng dẫn Kết hợp các Bảng tính - Bước 2/3, vui lòng thực hiện như ảnh chụp màn hình sau:
(1) Nhấp vào Thêm > Tập tin or Thư mục để thêm sổ làm việc, bạn sẽ sao chép trang tính từ đó.
(2) Trong Danh sách sổ làm việc kiểm tra sổ làm việc có trang tính bạn sẽ sao chép;
(3) Trong Danh sách bảng tính kiểm tra các trang tính bạn sẽ sao chép;
(4) Lặp lại ở trên (2) (3) để chọn trang tính từ các sổ làm việc khác mà bạn sẽ sao chép.
(5) Nhấp vào Sau .

4. Trong trình hướng dẫn Kết hợp Bảng tính - Bước 3/3, vui lòng định cấu hình cài đặt sao chép khi bạn cần và nhấp vào Kết thúc .

5. Bây giờ trong hộp thoại mới, vui lòng chỉ định một thư mục đích để lưu sổ làm việc mới, đặt tên cho sổ làm việc mới trong Tên tập tin và nhấp vào Lưu cái nút. Xem ảnh chụp màn hình:

Bây giờ hai hộp thoại khác sẽ xuất hiện và yêu cầu bạn mở sổ làm việc mới và lưu kịch bản kết hợp, vui lòng nhấp vào các nút khi bạn cần. Cho đến nay, nó đã sao chép tất cả các trang tính được chỉ định từ nhiều sổ làm việc cùng một lúc.

Với điều này Kết hợp (Trang tính) tiện ích, bạn có thể dễ dàng sao chép và kết hợp các trang tính và sổ làm việc như danh sách sau. Có một bản dùng thử miễn phí!
(1) Nhanh chóng kết hợp nhiều trang tính / phạm vi từ sổ làm việc thành một trang tính;
(2) Nhanh chóng hợp nhất / kết hợp tất cả các trang tính có cùng tên trên các sổ làm việc thành một trang tính;
(3) Nhanh chóng hợp nhất / kết hợp các trang tính hoặc sổ làm việc thành một sổ làm việc;
(4) Nhanh chóng tóm tắt / tính toán dữ liệu từ nhiều trang tính vào một trang tính.


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 ...
  • Thanh siêu công thức (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ọchữu ích. Cảm ơn !
  • 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ãyhữu ích. Cảm ơn !
  • 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éthữu ích. Cảm ơn !
  • 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à PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 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 đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại 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
Nhận xét (25)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sử dụng mã VBA, việc đặt tên cho các trang tính được sao chép theo thứ tự ngược lại. Giả sử tôi tạo 10 bản sao của Sheet1, tôi sẽ kết thúc với Sheet1, Sheet1 (10), Sheet1 (9), Sheet1 (8), ....... có thể có chúng theo thứ tự bình thường không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thử mã VBA và gặp lỗi chỉ số dưới phạm vi (9). Tôi đã thay thế tên trang tính bằng bất kỳ thứ gì tôi có thể nghĩ đến đã có trong sổ làm việc. Bất kỳ ý tưởng những gì tôi đã làm sai? Ngoài ra, có cách nào để đặt tên cho từng trang tính tăng dần không? Điều này sẽ gắn với câu hỏi của Michael, tôi chắc chắn. Tôi đoán câu trả lời cho câu hỏi của anh ấy là bạn cần đặt mục tiêu Sau thành "trang tính" + x bằng cách nào đó và điều đó sẽ áp dụng cho câu hỏi của tôi nếu có cách nào đó để chỉ định tên gì cho trang tính mới. Tôi luôn có thể chỉ cần thay đổi "chủ nhân" của sếp thành "0 tháng XNUMX" hoặc bất kỳ tháng nào, nhưng cô ấy sẽ dễ hiểu hơn nếu tập lệnh đặt tên tự động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn, mã vba rất lớn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chà, cảm ơn vì mã VBA. Nó thực sự giúp rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Sử dụng mã VBA, việc đặt tên cho các trang tính được sao chép theo thứ tự ngược lại. Giả sử tôi tạo 10 bản sao của Sheet1, tôi sẽ kết thúc với Sheet1, Sheet1 (10), Sheet1 (9), Sheet1 (8), ....... có thể có chúng theo thứ tự bình thường không?Bởi MichaelTadashi[/ quote] Có ai trả lời được câu hỏi này không? Tôi cần tạo 72 bản sao, nhưng sẽ cần chúng theo thứ tự (từ 1 đến 72, từ 72 đến 1) Cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] [quote] Sử dụng mã VBA, việc đặt tên cho các trang tính được sao chép theo thứ tự ngược lại. Giả sử tôi tạo 10 bản sao của Sheet1, tôi sẽ kết thúc với Sheet1, Sheet1 (10), Sheet1 (9), Sheet1 (8), ....... có thể có chúng theo thứ tự bình thường không?Bởi juan[/ quote] Có ai trả lời được câu hỏi này không? Tôi cần tạo 72 bản sao, nhưng sẽ cần chúng theo thứ tự (từ 1 đến 72, từ 72 đến 1) Cảm ơn!Bởi MichaelTadashi[/ quote] e] Nếu bạn muốn các bản sao của trang tính theo thứ tự tuần tự thay vì ngược lại, hãy thay đổi dòng sau ... Sau: = ActiveWorkbook.Sheets("Trang 1") đến đây ... Sau: = ActiveWorkbook.Sheets(Worksheets.Count) Mã đã hoàn thành của tôi trông giống như sau, sử dụng 2 lời nhắc InputBox để cho phép số lượng bản sao động và tên trang tính .. Sub Copier () Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox ("Bạn cần bao nhiêu bản sao?") S = InputBox ("Nhập tên Trang tính bạn muốn sao chép") For numtimes = 1 Tới numCopies ActiveWorkbook.Sheets (s) .Copy _ After: = ActiveWorkbook.Sheets (Worksheets.Count) Next End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để đánh số liên tục các coppies. Nếu trang tính tôi muốn sao chép có tên I002 và tôi muốn trang tính tiếp theo có tên I003, I004, I005, v.v.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tìm kiếm từ "Sau" và thay đổi thành "Trước". Thao tác này sẽ tạo các bản sao theo đúng thứ tự "Trước" Sheet1. Điều duy nhất cần ghi nhớ là việc đánh số sẽ luôn bắt đầu từ (2) vì tờ gốc sẽ luôn được tính là bản sao đầu tiên. Ngoài ra, bạn có thể thay thế "Sheet1" bằng tên của tab mà bạn đang cố gắng sao chép.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
vâng, nó hoạt động nhờ tôi đã tạo thành công nhiều bản sao của một trang tính trong cùng một sổ làm việc bằng cách sử dụng mã vba thnx rất nhiều.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cách sao chép với cùng độ rộng cột
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chiều rộng cột giống như Trang tính ban đầu hay bạn muốn tất cả chiều rộng cột giống nhau?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cũng mắc lỗi tương tự như Theou và dường như không ai giải quyết được. Các tab của tôi đã được đặt tên là PO 51, PO 52, v.v. và tôi đã thay thế Sheet1 bằng PO 51 để sao chép nó và gặp lỗi chỉ số con nằm ngoài phạm vi (9) Tôi đã làm theo mã của Schuyler để có thứ tự phù hợp, nhưng tôi vẫn gặp lỗi và nó luôn do hai dòng này: ActiveWorkbook.Sheets (s) .Copy _ Before: = ActiveWorkbook.Sheets (Worksheets.Count)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Tôi cũng mắc lỗi tương tự như Theou và dường như không ai giải quyết nó. Các tab của tôi đã được đặt tên là PO 51, PO 52, v.v. và tôi đã thay thế Sheet1 bằng PO 51 để sao chép nó và gặp lỗi chỉ số con nằm ngoài phạm vi (9) Tôi đã làm theo mã của Schuyler để có thứ tự phù hợp, nhưng tôi vẫn gặp lỗi và nó luôn do hai dòng này: ActiveWorkbook.Sheets (s) .Copy _ Before: = ActiveWorkbook.Sheets (Worksheets.Count)Bởi Debbi[/ quote] Bạn có thể bao gồm mã hoàn chỉnh của mình để gỡ lỗi dễ dàng hơn không? "Lỗi chỉ số con nằm ngoài phạm vi" thường có nghĩa là mã tham chiếu đến thứ gì đó không tồn tại. Tôi tìm thấy điều này trong mã của riêng mình khi tôi mắc lỗi đánh máy hoặc điều gì đó tương tự.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp lỗi 'numtimes' không được xác định ...?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nơi tôi sẽ chèn đoạn mã ở trên này vào vba tôi có nên tạo nút chung rồi vào bên trong không ?? Trân trọng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm theo các bước sau:
1. Sao chép đoạn mã trên
2. Nhấn giữ các phím ALT + F11 và nó sẽ mở ra cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp vào Chèn> Mô-đun, và dán mã sau vào Cửa sổ mô-đun.
4. sau đó nhấn phím F5 để chạy mã
5. Một hộp nhắc xuất hiện để hỏi bạn số lượng bản sao trang tính mà bạn muốn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Khi tôi lần đầu tiên thử nó, tôi nhận được thông báo lỗi vì tôi không thay đổi tên Sheet1. Sau khi tôi nhận ra điều gì gây ra lỗi, tôi đã nghiên cứu thêm một chút, vì tôi không muốn nhập tên trang tính vào macro theo cách thủ công. Và khi tôi cần tính năng này, nó gần như luôn luôn dành cho trang tính hiện tại. Tôi đã thêm dòng a = activesheet.name Và sửa lại dòng sau: = activeworkbook.sheets ("sheet1") thành activeworkbook.sheets (a) .copy _ Điều đó hoạt động rất tốt, nhưng tôi nhận thấy rằng việc đánh số đã bị đảo ngược ... điều đó không làm phiền tôi vì tôi vẫn sẽ đổi tên các trang tính mới theo cách thủ công. Khi tôi thấy bài đăng của Schuyler, tôi đã sửa lại thêm dòng activeworkbook.sheets (a) .copy _ thành after: = activeworkbook.sheets (worksheets.count) Bây giờ tôi hài lòng với kết quả. Macro đã hoàn thành của tôi: Bản sao phụ () Dim x As Integer x = InputBox ("Nhập số lần sao chép Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets ("Sheet1"). Copy _ After: = ActiveWorkbook.Sheets ( Worksheets.Count) Next End Sub --- Tất cả tốt nhất, Barry
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều Barry. Macro đã hoàn thành của bạn là thứ duy nhất phù hợp với tôi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tôi gặp lỗi cú pháp trên "After: = ActiveWorkbook.Sheets (Worksheets.Count)


nhưng tôi không biết có chuyện gì ... Bạn có thể giúp tôi được không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA tuyệt vời - thực sự hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi chưa quen với điều này Tôi chỉ đang cố tạo các bản sao của cùng một trang tính, đây là mã tôi đang sử dụng. Sub Copier () Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox ("Bạn cần bao nhiêu bản sao?") S = InputBox ("Nhập tên Trang tính bạn muốn sao chép") For numtimes = 1 Đến numCopies ActiveWorkbook.Sheets (s) .Copy _ After: = ActiveWorkbook.Sheets (Worksheets.Cou nt) Next End Sub khi tôi sử dụng mã, nó cho tôi lỗi "Lỗi cú pháp" thì văn bản này chuyển sang màu đỏ ActiveWorkbook.Sheets (s) .Copy _ Sau: = ActiveWorkbook.Sheets (Worksheets.Cou nt) và văn bản chuyển sang màu vàng Sub Copier () Tôi có thể làm gì để sửa nó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Tôi là người mới làm quen với điều này Tôi chỉ đang cố gắng tạo các bản sao của cùng một trang tính, đây là mã tôi đang sử dụng. Sub Copier () Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox ("Bạn cần bao nhiêu bản sao?") S = InputBox ("Nhập tên Trang tính bạn muốn sao chép") For numtimes = 1 Đến numCopies ActiveWorkbook.Sheets (s) .Copy _ After: = ActiveWorkbook.Sheets (Worksheets.Cou nt) Next End Sub khi tôi sử dụng mã, nó cho tôi lỗi "Lỗi cú pháp" thì văn bản này chuyển sang màu đỏ ActiveWorkbook.Sheets (s) .Copy _ Sau: = ActiveWorkbook.Sheets (Worksheets.Cou nt) và văn bản chuyển sang màu vàng Sub Copier () Tôi có thể làm gì để sửa nó.Bởi Tyler Dempsey[/ quote] Kiểm tra lại mã của bạn và đảm bảo rằng bạn không có chỗ trống tại ActiveWorkbook. (Các) Trang tính. Sao chép _ hoặc tại Trang tính (Trang tính.Cou nt)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Tôi là người mới làm quen với điều này Tôi chỉ đang cố gắng tạo các bản sao của cùng một trang tính, đây là mã tôi đang sử dụng. Sub Copier () Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox ("Bạn cần bao nhiêu bản sao?") S = InputBox ("Nhập tên Trang tính bạn muốn sao chép") For numtimes = 1 Đến numCopies ActiveWorkbook.Sheets (s) .Copy _ After: = ActiveWorkbook.Sheets (Worksheets.Cou nt) Next End Sub khi tôi sử dụng mã, nó cho tôi lỗi "Lỗi cú pháp" thì văn bản này chuyển sang màu đỏ ActiveWorkbook.Sheets (s) .Copy _ Sau: = ActiveWorkbook.Sheets (Worksheets.Cou nt) và văn bản chuyển sang màu vàng Sub Copier () Tôi có thể làm gì để sửa nó.Bởi Tyler Dempsey[/ quote] Đây là mã chính xác bạn muốn sử dụng: Sub Copier () Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox ("Bạn cần bao nhiêu bản sao?") s = InputBox ("Enter tên của Trang tính bạn muốn sao chép ") Đối với numtimes = 1 Đến numCopies ActiveWorkbook.Sheets (s) .Copy _ Sau: = ActiveWorkbook.Sheets (Worksheets.Count) Next End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn, người cuối cùng đã cứu mạng tôi :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã làm việc

Máy photocopy phụ ()
Dim s dưới dạng chuỗi
Làm mờ số lần dưới dạng số nguyên
Dim numCopy dưới dạng số nguyên
numCopies = InputBox ("Bạn cần bao nhiêu bản sao?")
s = InputBox ("Nhập tên của Trang tính bạn muốn sao chép")
Đối với numtimes = 1 Đến numCopies
ActiveWorkbook.Sheets .Copy After: = ActiveWorkbook.Sheets (Worksheets.Count)
Sau
End Sub

sao chép toàn bộ dòng từ ActiveWorkbook.Sheets ...... đó là sự cố và một số dấu cách

Có một ngày tuyệt vời
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL