Chia danh sách dữ liệu trong Excel

[kien.le]

Hi các bạn,

Hiện tại mình đang có 1 list danh sách khoảng 4000 người. cần chia lai cho 12 bạn khác.

Bạn nào có thể chỉ giúp mình cách chia nhanh và đều nhất được không

Cảm ơn các bạn rất nhiều!

==============
Lần sau nhớ viết tiêu đề bằng tiếng Việt có dấu nha bạn

 

[SA_DQ]

Bạn hãy xem VBA làm điều đó như thế nào:

Option Explicit
[B]Sub Lap12DanhSách()[/B]
 Dim Sh As Worksheet, Cls As Range
 Dim Jj As Integer, Col
 
 Sheets("CSDL").Select:       Set Sh = Sheets("Chia")
 Sh.[A3].Resize([A1].CurrentRegion.Rows.Count, 8 * 12).ClearContents
 For Each Cls In Range([B2], [B65500].End(xlUp))
   Jj = Jj + 1:            Col = Jj Mod 12
   If Col = 0 Then Col = 12
   With Sh.Cells(65500, 8 * Col - 6).End(xlUp).Offset(1)
      .Offset(, -1).Value = Jj \ 12 + 1
      .Resize(, 6).Value = Cls.Resize(, 6).Value
   End With
 Next Cls
[B]End Sub[/B]

 

[kien.le]

Bạn ơi, paste code VB vào đâu zậy ???

 

[SA_DQ]

trong file đính kèm có macro đó rồi mà;
Hãy tìm & chạy nó sẽ thấy kết quả như trong trang tính 'Chia'

 

[kien.le]

Chạy toàn hiện ra số 1 ko à

 

[ChanhTQ@]

Tội nghiệp chưa!

Chạy toàn hiện ra số 1 ko à

Hay là đưa file lên đi bạn!

Chứ macro đó chỉ fù hợp với file đính kèm ấy má thôi (Về số trường đó mà)!