Excel VBA Macro to Insert Rows based on Cell Value
Sub InsRows()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
K = 0
For X = 2 To 100
Y = Cells(X, 1).Value
For Z = 1 To Y
Cells(X, 1).Offset(1, 0).Rows.Insert
Cells(X, 1).Offset(1, 0).Interior.ColorIndex = 24
K = K + 1
Next Z
X = (X + K)
K = 0
Next X
End Sub
------------------------------------------------------------------------------------------------
Example:
Suppose we have specified how many rows need to insert a as specified as follows:
Output:
Now the above Macro will insert the rows after each cell as shown below, based on number specified.
Thanks, TAMATAM
Sub InsRows()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
K = 0
For X = 2 To 100
Y = Cells(X, 1).Value
For Z = 1 To Y
Cells(X, 1).Offset(1, 0).Rows.Insert
Cells(X, 1).Offset(1, 0).Interior.ColorIndex = 24
K = K + 1
Next Z
X = (X + K)
K = 0
Next X
End Sub
------------------------------------------------------------------------------------------------
Example:
Suppose we have specified how many rows need to insert a as specified as follows:
Output:
Now the above Macro will insert the rows after each cell as shown below, based on number specified.
Thanks, TAMATAM