Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1 (1 người xem)

[hunganh.nguyen]

Kính chào các Anh, Chị, Em!

Mình có tình huống cần tách tổng thành những dòng chi tiết với giá trị là 1 như trong file đính kèm.

Rất mong được các Anh, Chị, Em quan tâm, giúp đỡ!

Mình xin cám ơn nhiều!

 

[HUONGHCKT]

Kính chào các Anh, Chị, Em!

Mình có tình huống cần tách tổng thành những dòng chi tiết với giá trị là 1 như trong file đính kèm.

Rất mong được các Anh, Chị, Em quan tâm, giúp đỡ!

Mình xin cám ơn nhiều!

Trong khi chờ đợi có thể tham khảo code sau:

Option Explicit
Sub TachTong()
Dim i&, j&, t&, k&, Lr&
Dim Arr(), KQ(), Rng As Range
With Sheet1
Lr = .Range("C10000").End(xlUp).Row
Arr = .Range("C2:D" & Lr).Value
Set Rng = .Range("D3:D" & Lr)
ReDim KQ(1 To Application.WorksheetFunction.Sum(Rng) + 1, 1 To 2)
    KQ(1, 1) = Arr(1, 1)
    KQ(1, 2) = Arr(1, 1)
t = 1
For i = 2 To UBound(Arr)
    For j = 1 To Arr(i, 2)
        t = t + 1
        KQ(t, 1) = Arr(i, 1)
        KQ(t, 2) = 1
    Next j
Next i
.Range("J2").Resize(t, 2) = KQ
End With
Msgbox "Done"
End Sub

 

[Phuocam]

Kính chào các Anh, Chị, Em!

Mình có tình huống cần tách tổng thành những dòng chi tiết với giá trị là 1 như trong file đính kèm.

Rất mong được các Anh, Chị, Em quan tâm, giúp đỡ!

Mình xin cám ơn nhiều!

Gửi trong chuyên đề Hàm và công thức, mở ra yêu cầu code. Hahaha ...

Lỡ làm công thức, gửi lên luôn. Excel 2021:

=LET(a,SEQUENCE(SUM(D3:D13)),b,SUBTOTAL(109,OFFSET(D2,,,SEQUENCE(ROWS(D3:D13))))+1,INDEX($C$3:$C$13,MATCH(a,b,1)))

 

[DeTong]

Thử thay đổi cột số lượng và refresh...

 

[hunganh.nguyen]

Thử thay đổi cột số lượng và refresh...

Rất cám ơn bạn nhé!

Bài đã được tự động gộp: 26/6/24

Gửi trong chuyên đề Hàm và công thức, mở ra yêu cầu code. Hahaha ...

Lỡ làm công thức, gửi lên luôn. Excel 2021:

=LET(a,SEQUENCE(SUM(D3:D13)),b,SUBTOTAL(109,OFFSET(D2,,,SEQUENCE(ROWS(D3:D13))))+1,INDEX($C$3:$C$13,MATCH(a,b,1)))

Rất cám ơn bạn đã giúp đỡ!

 

[vostro 1500]

Thử thay đổi cột số lượng và refresh...

Tuyệt vời!
Mình nhờ bạn thêm 1 chút điều chỉnh: nguồn mình thêm cột giá -> kết quả cũng thêm cột giá tương đương
Cảm ơn bạn nhiều!

 

[DeTong]

Tuyệt vời!
Mình nhờ bạn thêm 1 chút điều chỉnh: nguồn mình thêm cột giá -> kết quả cũng thêm cột giá tương đương
Cảm ơn bạn nhiều!

Click mũi tên để câp nhật...

 

[vostro 1500]

Click mũi tên để câp nhật...

Tks bạn đã hỗ trợ mình!
Mình ko rành Excel nên nhờ bạn thêm 1 chút nữa -> chuyển file này chạy được trên Excel 2013 do máy công ty mình chỉ cài 2013.
Tks bạn nhiều!

 

[DeTong]

chuyển file này chạy được trên Excel 2013

Thử xem chạy dược không?

 

[vostro 1500]

Mình

Thử xem chạy dược không?

Cảm ơn bạn nhiều! Chạy ngon lành
chỉ có khác chút file 222 ban đầu là cột Số lượng (sheet Data) phải có số khác 0 mới chạy Ok nếu ko sẽ dừng lại trước dòng SL=0. File 222 thì số 0 cũng chạy

 

[Duy Tùng 9x]

Kính chào các Anh, Chị, Em!

Mình có tình huống cần tách tổng thành những dòng chi tiết với giá trị là 1 như trong file đính kèm.

Rất mong được các Anh, Chị, Em quan tâm, giúp đỡ!

Mình xin cám ơn nhiều!

Bạn chắc có kết quả rồi, nhưng vẫn muốn thử hàm để học hỏi thêm. Cảm ơn!
=CHOOSE({1,2},TEXTSPLIT(CONCAT(REPT(C3:C13&"/",D313)),,"/",1),1)