Giúp Code nhân số lượng trong chuỗi

[hondacrv2019]

Chào toàn thể anh chị GPE !
Tôi có 1 file excel của công ty xuất ra từ 1 phần mềm. Hiện tại khi thay đổi cột SL thì tôi phải tự thay đổi bằng tay các cột SL trong chuỗi để cho khớp dữ liệu. Tôi đã thử dùng công thức cũng không được. Mong mọi người chỉ giáo. Tôi xin cảm ơn các anh chị trước

 

[snow25]

Chào toàn thể anh chị GPE !
Tôi có 1 file excel của công ty xuất ra từ 1 phần mềm. Hiện tại khi thay đổi cột SL thì tôi phải tự thay đổi bằng tay các cột SL trong chuỗi để cho khớp dữ liệu. Tôi đã thử dùng công thức cũng không được. Mong mọi người chỉ giáo. Tôi xin cảm ơn các anh chị trước

View attachment 218681

Bạn thử.

Function vovan(ByVal so As Long, ByVal dk As String, Optional ByVal phancach As String = ";") As String
         Dim T, a As Integer, i As Integer, T1, s As String
         T = Split(phancach & dk, phancach)
         a = UBound(T)
         For i = 1 To a - 1
             T1 = Split(T(i), "*")
             T1(1) = T1(1) * so
             s = T1(0) & "*" & T1(1)
             vovan = vovan & s & phancach
         Next i
End Function

=vovan(B4,C4)

 

[hondacrv2019]

Bạn thử.

Function vovan(ByVal so As Long, ByVal dk As String, Optional ByVal phancach As String = ";") As String
         Dim T, a As Integer, i As Integer, T1, s As String
         T = Split(phancach & dk, phancach)
         a = UBound(T)
         For i = 1 To a - 1
             T1 = Split(T(i), "*")
             T1(1) = T1(1) * so
             s = T1(0) & "*" & T1(1)
             vovan = vovan & s & phancach
         Next i
End Function

=vovan(B4,C4)

Cảm ơn bác. Cái này áp dụng của em đấy bác. Cảm ơn bác nhiều lắm