Làm cách nào để lưu sheet1 của nhiều sổ làm việc được tạo vào một sổ làm việc có nhiều bảng tính bằng cách sử dụng tập lệnh VB?

Tôi hoàn toàn mới với VBA và tôi được yêu cầu thực hiện các cải tiến trong một ngày.

Mã hiện tại của tôi tạo ra nhiều tài liệu excel và có dữ liệu trong 'Sheet1'. Bây giờ tôi muốn một excel duy nhất được tạo, có nhiều trang tính. Làm cách nào để lưu sheet1 của nhiều sổ làm việc được tạo vào một sổ làm việc với nhiều trang tính bằng tập lệnh VB?

Mã số:

Dim getLCount As Integer, getPCount As Integer, getTotalCountAdd As Integer
Dim getValidColumnNames As String, getValidColumnNames_p As String, checkCol1 As String, checkCol2 As String
Dim addAllColumns As String
Dim foundFlag As Boolean
Dim splitgetValidColumnNames As Variant, splitgetValidColumnNames_i As Variant, splitgetValidColumnNames_p As Variant, splitgetValidColumnNames_p_i As Variant

getLCount = ColN_cnt
getPCount = getColCount '- 1

Wbook_Input.Activate
Worksheets(tableName).Range("A2:B" & getLCount + 2).Copy Destination:=Workbooks(newWorkbookName).Sheets("Sheet1").Cells(4, "A")
Workbooks(newWorkbookName).Activate
Wbook_Input.Activate
Worksheets(tableName).Range("E2:F" & getPCount + 2).Copy Destination:=Workbooks(newWorkbookName).Sheets("Sheet1").Cells(4, "C")
Workbooks(newWorkbookName).Activate
Worksheets.Add
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveWorkbook.Save
Application.CutCopyMode = False
Worksheets("Sheet1").Select
Worksheets("Sheet1").Range("A5").Select

microsoft-excel vba macros

— ajinfy
nguồn

Tại sao bạn cần VBA? Bạn có thể chỉ cần chọn các trang tính (sử dụng shift-select nếu cần) và sau đó nhấp chuột phải vào tab trang tính và chọn "Di chuyển trang tính". Trong cửa sổ bật lên, bạn có thể thay đổi sổ làm việc mà trang tính chuyển sang ...

— Mokubai

@Mokubai, OP muốn sao chép nhiều Sheet1 từ nhiều sổ làm việc sang một sổ làm việc mới với nhiều trang tính. Hộp thoại Move / Copy không phải là một tùy chọn khả thi.

— Bandersnatch

@Bandersnatch có vẻ như bạn đúng, nhưng lý do để làm như vậy sẽ rất tốt để có trong chính câu hỏi. VBA sẽ là quá mức cần thiết cho một (hoặc chỉ một vài) sổ làm việc, có thể gây sử dụng gây tranh cãi trên một lần chụp với nhiều sách bài tập, nhưng chắc chắn đáng làm nếu nó cần xảy ra thường xuyên với nhiều sách. Sẽ rất hữu ích nếu biết đây là tình huống "búa tạ để bẻ khóa" hay búa tạ để phá vỡ một bức tường lớn.

— Mokubai

@Mokubai, đồng ý. Có lẽ OP sẽ trau chuốt.

— Bandersnatch