Nhờ anh chị giúp đỡ Code vòng lặp copy dữ liệu qua nhiều sheet

Em chào tất cả mọi người ạ.

Hiện tại e có 1 file dữ liệu tổng nhưng muốn chia ra thành nhiều sheet.
Sau khi tính tổng số sheet cần chia thì sẽ chia sheet và đặt tên theo thứ tự ở cột O.

Sau khi chia sheet xong thì e muốn copy cả tên Lot Nhật ( Cột M sheet Data ) qua tầng sheet đã chia.
Copy tên Lot Nhật thứ tự qua sheet ( esd1,esd2,esd3,esd4) cột C6,C30,… tới C876 ( step=30 )
Sau khi copy tối đa 30 tên Lot Nhật sẽ chuyển qua sheet tiếp theo. ( 1 sheet sẽ chứa tối đa được 30 tên Lot Nhật )

Mong được sự giúp đỡ của mọi người ạ.

7058

Bạn chỉ copy cột M hay copy từ cột A đến M?

Dạ em chỉ cần cột M thôi ạ.
Các cột khác e để công thức nó nhảy cũng được a ạ.

Code này copy 13 cột, bạn sửa lại nó theo ý bạn.

Public Sub TachSheet()
Dim i As Long, lastRow As Long
Dim sheetName  As String, k As Long
Dim ws As Worksheet
With Sheets("data")
    lastRow = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To lastRow Step 30
        k = k + 1
        sheetName = "esd" & k
        Sheets.Add After:=Sheets(Sheets.Count)
        Set ws = ActiveSheet
        ws.Name = sheetName
       .Range("A1:M1").Copy ws.Range("A1")
       .Range("A" & i).Resize(30, 13).Copy ws.Range("A2")
       ws.UsedRange.EntireColumn.AutoFit
    Next
End With
End Sub

www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-anh-ch%E1%BB%8B-gi%C3%BAp-%C4%91%E1%BB%A1-code-v%C3%B2ng-l%E1%BA%B7p-copy-d%E1%BB%AF-li%E1%BB%87u-qua-nhi%E1%BB%81u-sheet.155329/

Khóa học SprinGO phù hợp

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ

Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...

Xem khóa học