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