Hỗ trợ tạo Kho (Storage Bins) (1 người xem)

[Tình nghĩa giang hồ]

Em chào anh chị, em có trường hợp tạo Kho như file đính kèm.
Dưới Kho em, có nhiều bạn làm thủ công khá là cực khổ, nhờ anh chị hỗ trợ giúp em.
Em cảm ơn anh chị nhiều.

 

[BuiQuangThuan]

Dưới Kho em, có nhiều bạn làm thủ công khá là cực khổ, nhờ anh chị hỗ trợ giúp em.

Có khi nào nó dạng AA.. - AA... hơm?
Thêm cách tham khảo

Option Explicit
Sub ABC()
Dim iR&, Tmp(), Arr(), i&, BatDau, KetThuc, j&, jj&, K&, S, KT$
With Sheet1
    iR = .Range("A" & Rows.Count).End(3).Row
    Arr = .Range("A2:C" & iR).Value
    For i = 1 To UBound(Arr)
        S = Split(Arr(i, 1), "-")
        BatDau = Right(Trim(S(0)), Len(Trim(S(0))) - 1)
        KetThuc = Right(Trim(S(1)), Len(Trim(S(1))) - 1)
        For j = CLng(BatDau) To CLng(KetThuc)
            KT = Left(S(0), 1) & Format(j, "00")
            For jj = 1 To Arr(i, 3)
                K = K + 1
                ReDim Preserve Tmp(1 To K)
                Tmp(K) = KT & "-" & Format(jj, "00")
            Next
        Next
    Next
    .Range("F2:F100000").ClearContents
    .Range("F2").Resize(K).Value = Application.WorksheetFunction.Transpose(Tmp)
End With
End Sub

 

[Tình nghĩa giang hồ]

Có khi nào nó dạng AA.. - AA... hơm?

Dạ, không có anh, chỉ có 1 chữ đầu là ký tự (chữ) thôi anh còn, lại là số hết. VD: có 15 dãy, thì bắt đầu từ A0-A14 ( cộng lại đủ 15) lấy 15 chữ A này ghép với số kiện, theo tuần tự như hình.

 

[Maika8008]

Em chào anh chị, em có trường hợp tạo Kho như file đính kèm.
Dưới Kho em, có nhiều bạn làm thủ công khá là cực khổ, nhờ anh chị hỗ trợ giúp em.
Em cảm ơn anh chị nhiều.

Bạn chạy code trong file

 

[Tình nghĩa giang hồ]

Em đã làm được, em cảm ơn bác Maika và anh Bùi Quang Thuận nhiều.