/VBA/Excel insert blank row for value change in column

Excel insert blank row for value change in column

Sub InsertRowsAtValueChangeColumnB()
  Dim X As Long, LastRow As Long
  Const DataCol As String = "B"
  Const StartRow = 2
  LastRow = Cells(Rows.Count, DataCol).End(xlUp).Row
  Application.ScreenUpdating = False
  For X = LastRow To StartRow + 1 Step -1
    If Cells(X, DataCol).Value <> Cells(X - 1, DataCol) Then Rows(X).Insert
  Next
  Application.ScreenUpdating = True
End Sub

https://www.youtube.com/watch?time_continue=3&v=qWbaGnZlLn8&feature=emb_logo

Similar codes

0 vote346 views1 answer
Vba border weight
VBA
8 votes397 views1 answer
Run command pormpt in background windows
VBA
5 votes390 views1 answer
Excel vba left word from Long Integer
VBA
0 vote323 views1 answer
Create new worksheet excel visual basic
VBA
0 vote361 views2 answers
Excel vba copy paste after last row
VBA
0 vote361 views1 answer
Vba check 32 or 64 bit
VBA
0 vote374 views1 answer
Vba add shape oval
VBA
1 vote335 views1 answer
Vba declare api 64 bit 32 bit
VBA
9 votes496 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote364 views1 answer
Vba listbox remove all items
VBA