Dãn dòng dựa theo số lượng (1 người xem)

[keke355992]

E chào các AC trong diễn đàn!
E muốn như yêu cầu ở trong file. Nhờ các AC xem giúp ạ. E cảm ơn nhìu

 

[quanluu]

E chào các AC trong diễn đàn!
E muốn như yêu cầu ở trong file. Nhờ các AC xem giúp ạ. E cảm ơn nhìu

Bạn dùng code này:

Sub Dandong()
Dim i, j As Integer
For i = Range("B" & Rows.Count).End(3).Row - 1 To 4 Step -1
    For j = 1 To Cells(i, 3) -1
        Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next
Next
End Sub

 

[keke355992]

Bạn dùng code này:

Sub Dandong()
Dim i, j As Integer
For i = Range("B" & Rows.Count).End(3).Row - 1 To 4 Step -1
    For j = 1 To Cells(i, 3) -1
        Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next
Next
End Sub

Thank bạn nha, Mình làm đc rùi, Đoạn code thật là đơn giản