ví dụ e có group mã hàng BA001005 e muốn sử dụng code VBA để insert dòng tách

Chào bạn bạn đã có thể đẩy file hoặc hình ảnh lên giúp gitiho được không?

Còn theo ý hiểu gitiho bạn tách như sau

B1 tách ra ký tự cuối cùng trong Mã có dạng là BA001-005 Tách ra được ký tự cuối cùng là 5

Bước 2 chạy vòng lặp duyệt từ 1 đến ký tự cuối cùng

For i = 1 to 5

Next i

Bước 3 thay tên giá trị vào dạng "BA00"&i vào trong vòng lặp

Option Explicit
Sub TachChuoi()
    Dim Sotach As Long, ChuoiTach As Variant
    Dim i As Long, Giatri As Long, Arr As Variant
    Sotach = Right(Sheet1.Range("A1").Value, 1)
    ChuoiTach = Split(Sheet1.Range("A1").Value, "-")(0)
    ReDim Arr(0 To Sotach - 1, 0 To 1)
    For i = 0 To Sotach - 1
        Arr(i, 0) = "BA" & Application.WorksheetFunction.Text(i + 1, "000")
    Next i
    Sheet1.Range("C1").Resize(i, 1).Value = Arr
End Sub

Mình đang không hiểu thuật toán bạn mong muốn ở đây là gì? Còn phần tách thì như code ở trên mình chỉ bạn đó

Chào bạn Bước 1 bạn làm theo phương pháp trên của mình

Đầu tiên vẫn phải tách mã trước nhé, bạn phải tách theo hàm Split nhé.

Tiếp theo bạn sử vòng lặp là xong.

Chào bạn nếu có trường hợp 3 thì bạn thay vòng lặp với bắt đầu là 3 và kết thúc là 5 bạn cần tìm hai yếu tố nhé.

For i = batdau to ketthuc

// code ở trong này
Next i