Insert Rows according cells value in excel table
Closed
loftier
Posts
1
Registration date
Friday June 7, 2013
Status
Member
Last seen
June 7, 2013
-
Jun 7, 2013 at 02:39 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jun 10, 2013 at 11:21 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jun 10, 2013 at 11:21 AM
Related:
- Insert Rows according cells value in excel table
- Insert gif in excel - Guide
- Insert check mark in word - Guide
- How to delete a row in a table in word - Guide
- How to insert photo in word for resume - Guide
- Insert draft watermark in word on all pages - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Jun 10, 2013 at 11:21 AM
Jun 10, 2013 at 11:21 AM
Hi Loftier,
Here you go:
Best regards,
Trowa
Here you go:
Sub test()
Dim x, y, cRow As Integer
cRow = 1
Do
If Range("A" & cRow).Value > 1 Then
x = Range("A" & cRow).Value
y = Range("A" & cRow).Value
Do
Range("A" & cRow + 1).EntireRow.Insert Shift:=xlUp
Range(Cells(cRow, "A"), Cells(cRow, "B")).Copy
Range("A" & cRow + 1).PasteSpecial
x = x - 1
Loop Until x = 1
cRow = cRow + y
End If
Loop Until Range("A" & cRow).Value = vbNullString
Application.CutCopyMode = False
End Sub
Best regards,
Trowa
