Dùng vòng lặp để tách mỗi lần 3 giá trị của 1 mã cho đến hết

Chia sẻ bởi:hands

★★★★★

‹ Hỏi về lệnh VBA tách dư liệu... Cho Format vào mảng ›

Quảng cáo

Em cảm ơn.

Hiện em có 1 tính huống, mong muốn dùng vòng lặp để tách mỗi lần 3 serial của 1 mã hàng mang đi, nếu số lượng serial không chia hết cho 3 thì lần cuối cùng sẽ lấy số còn lại.
Chi tiết như ví dụ đính kèm.
Em không chú trọng vào việc để dữ liệu vào đâu, nên việc trình bày kết quả mong muốn này tại sheet1 đó chỉ là minh họa, vì mỗi lần mang đi đó em đưa vào nhiều file khác nhau và bố trí không theo quy tắc nào cả. Chỉ mong muốn vòng lặp cho mỗi mã, hết mã này tới mã khác.
Em cảm ơn.

Có thể ý tưởng code là vậy:

Public Sub test()
' d là số lượng dòng của 1 mã,
r = 1
c = 1
Do While d > 0
    If d > 3 Then
        d = 1
        c = c + 1
        '.... ghi dữ liệu
    End If
    d = d - 1
Loop
End Sub

www.giaiphapexcel.com/diendan/threads/d%C3%B9ng-v%C3%B2ng-l%E1%BA%B7p-%C4%91%E1%BB%83-t%C3%A1ch-m%E1%BB%97i-l%E1%BA%A7n-3-gi%C3%A1-tr%E1%BB%8B-c%E1%BB%A7a-1-m%C3%A3-cho-%C4%91%E1%BA%BFn-h%E1%BA%BFt.166389/