Tách bảng sản phẩm giới hạn mỗi bảng 10 sản phẩm

[duhero]

Em có 1 bảng nhập sản phẩm khá nhiều. Giờ muốn tách thành nhiều bảng riêng rẽ mỗi bảng là 10 sản phẩm.

Tách dựa theo cột số thứ tự, cứ đếm 10 copy ra 1 bảng riêng rồi lặp lại cho đến hết
kết quả được copy ở sheet mới. em có gửi kèm file để dễ hiểu hơn. Không biết có làm được không chứ copy bằng tay thì mệt lắm. Lưu ý là cột số thứ tự có dòng trống vì có bộ sản phẩm mà

 

[nhapmon]

bạn thử đoạn code "rừng" này coi được ko, với data hiên có của bạn thì nó chạy đúng rồi đó. nhiều thì hổng biết nha...hihihi

Sub TachSP()

Application.ScreenUpdating = True
Dim ws As Worksheet
Static r
On Error Resume Next
lr = Range("A" & Rows.Count).End(xlUp).Row
k = 10
r = 4
For i = 1 To lr
Sheets("sheet1").Select
If Range("A" & i).Value = k Then
Sheets.Add
ActiveSheet.Move After:=Sheets("sheet1")
Set ws = ActiveSheet
Sheets("sheet1").Range("A1:C3").Copy Destination:=ws.Range("A1")
Sheets("sheet1").Range("A" & r, "C" & i).Copy Destination:=ws.Range("A4")
k = k + 10
r = Range("A" & i).Offset(1, 0).Row
End If
Next

If (lr - k > 0) Then

Sheets.Add
ActiveSheet.Move After:=Sheets("sheet1")
Set ws = ActiveSheet
Sheets("sheet1").Range("A1:C3").Copy Destination:=ws.Range("A1")
Sheets("sheet1").Range("A" & r, "C" & i).Copy Destination:=ws.Range("A4")
End If
set ws=nothing
On Error GoTo 0
Application.ScreenUpdating = False

End Sub

 

[Quang_Hải]

Em có 1 bảng nhập sản phẩm khá nhiều. Giờ muốn tách thành nhiều bảng riêng rẽ mỗi bảng là 10 sản phẩm.

Tách dựa theo cột số thứ tự, cứ đếm 10 copy ra 1 bảng riêng rồi lặp lại cho đến hết
kết quả được copy ở sheet mới. em có gửi kèm file để dễ hiểu hơn. Không biết có làm được không chứ copy bằng tay thì mệt lắm. Lưu ý là cột số thứ tự có dòng trống vì có bộ sản phẩm mà

Thấy dạng dữ liệu trong file là hết muốn suy nghĩ. Với dạng dữ liệu bạn gởi cho có lệ thì có cố suy nghĩ cũng viết code sai là 99%. Hoặc là tư duy mình kém quá.

 

[duhero]

Cảm ơn bạn đã góp ý, nếu vậy thì mình sẽ up file data chính lên.

 

[duhero]

Như code rừng của bạn thì đúng là rất ổn nhưng mà nó lại không chạy tiếp. nó chỉ cắt đến 10 thôi, ý mình là từ 11 đến 20 nó lại copy thành 1 bản nữa. Cứ như vậy lặp lại

 

[huuthang_bd]

Em có 1 bảng nhập sản phẩm khá nhiều. Giờ muốn tách thành nhiều bảng riêng rẽ mỗi bảng là 10 sản phẩm.

Tách dựa theo cột số thứ tự, cứ đếm 10 copy ra 1 bảng riêng rồi lặp lại cho đến hết
kết quả được copy ở sheet mới. em có gửi kèm file để dễ hiểu hơn. Không biết có làm được không chứ copy bằng tay thì mệt lắm. Lưu ý là cột số thứ tự có dòng trống vì có bộ sản phẩm mà

Bạn thử file này xem.

 

[SA_DQ]

Cũgn xin bon chen 1 file cho vui