/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 vote123 views1 answer
Add items to combobox vb.net
VBA
0 vote122 views1 answer
Afficher un message d'erreur vba
VBA
0 vote140 views1 answer
Power query M substract minimum value of column -dax
VBA
2 votes115 views1 answer
Vba array contains
VBA
0 vote114 views1 answer
Excel vba current folder
VBA
0 vote143 views1 answer
Excel vba add reference programmatically
VBA
0 vote126 views1 answer
How to add line graph vb net
VBA
0 vote116 views1 answer
Vba apostrophe chr
VBA
0 vote136 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote129 views1 answer
Vba word pdf table to excel
VBA