Sub splitItem()
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To (akhir + (akhir - awal))
Cells(n + 1, kol).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
Next n
End Sub
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To (akhir + (akhir - awal))
Cells(n + 1, kol).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
Next n
End Sub
Tidak ada komentar:
Posting Komentar