Nhờ hổ trợ tách số lượng và ngày sản xuất. (1 người xem)

[HUYNHTIEN0202]

Chào các Anh
Hiện tại mình đang áp dụng code chia nhỏ thành nhiều phần theo điều kiện ở cột H
Nhưng cột số lượng và cột ngày SX mình vẫn thao tác bằng tay ,nay muốn nhờ các anh hổ trợ tách ra dùm.
Kết quả mình để trong file .
Cám ơn các Anh nhiều.

 

[Đừng Lắm Mồm]

Darr(K, 6) = Split(Arr(I, 5), "-")(J)
Darr(K, 7) = Split(Arr(I, 6), "-")(J)

 

[HUYNHTIEN0202]

Darr(K, 6) = Split(Arr(I, 5), "-")(J)
Darr(K, 7) = Split(Arr(I, 6), "-")(J)

Cám ơn bạn nhiều.

 

[PacificPR]

Chào các Anh
Hiện tại mình đang áp dụng code chia nhỏ thành nhiều phần theo điều kiện ở cột H
Nhưng cột số lượng và cột ngày SX mình vẫn thao tác bằng tay ,nay muốn nhờ các anh hổ trợ tách ra dùm.
Kết quả mình để trong file .
Cám ơn các Anh nhiều.

Bạn thử cái này thử xem

Sub Ongtaovetroi()
    Dim sArr, dArr, I As Long, J As Long, K As Long, N As Long, Tmp
    Dim Ngay, thang, nam, Chuoi As String
N = Application.Max(Range("H6", Range("H" & Rows.Count).End(3)))
sArr = Range("B6", Range("B" & Rows.Count).End(3)).Resize(, 7).Value
ReDim dArr(1 To UBound(sArr) * N, 1 To 8)
For I = 1 To UBound(sArr)
    For J = 0 To UBound(Split(sArr(I, 5), "-"))
        If Split(sArr(I, 5), "-")(J) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 1): dArr(K, 3) = sArr(I, 2): dArr(K, 4) = sArr(I, 3):  dArr(K, 5) = sArr(I, 4)
            dArr(K, 6) = Split(sArr(I, 5), "-")(J)
            Chuoi = Split(sArr(I, 6), "-")(J)
            Ngay = Mid(Chuoi, 1, 2): thang = Mid(Trim(Chuoi), 3, 2): nam = Mid(Chuoi, 5, 2)
            dArr(K, 7) = DateSerial(nam, thang, Ngay)
            dArr(K, 8) = 1
        End If
    Next
Next
Range("K6").Resize(K, 8) = dArr
End Sub

 

[HUYNHTIEN0202]

Bạn thử cái này thử xem

Sub Ongtaovetroi()
    Dim sArr, dArr, I As Long, J As Long, K As Long, N As Long, Tmp
    Dim Ngay, thang, nam, Chuoi As String
N = Application.Max(Range("H6", Range("H" & Rows.Count).End(3)))
sArr = Range("B6", Range("B" & Rows.Count).End(3)).Resize(, 7).Value
ReDim dArr(1 To UBound(sArr) * N, 1 To 8)
For I = 1 To UBound(sArr)
    For J = 0 To UBound(Split(sArr(I, 5), "-"))
        If Split(sArr(I, 5), "-")(J) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 1): dArr(K, 3) = sArr(I, 2): dArr(K, 4) = sArr(I, 3):  dArr(K, 5) = sArr(I, 4)
            dArr(K, 6) = Split(sArr(I, 5), "-")(J)
            Chuoi = Split(sArr(I, 6), "-")(J)
            Ngay = Mid(Chuoi, 1, 2): thang = Mid(Trim(Chuoi), 3, 2): nam = Mid(Chuoi, 5, 2)
            dArr(K, 7) = DateSerial(nam, thang, Ngay)
            dArr(K, 8) = 1
        End If
    Next
Next
Range("K6").Resize(K, 8) = dArr
End Sub

Cám ơn Anh nhiều.