/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 vote162 views1 answer
Set datetimepicker value to null vb
VBA
3 votes117 views1 answer
Vba not equal
VBA
0 vote126 views1 answer
Send webhook vbscript
VBA
0 vote124 views1 answer
Make your computer talk vbscript
VBA
8 votes115 views1 answer
Excel vba make a short integer from two bytes
VBA
2 votes128 views1 answer
Excel vba date to string conversion
VBA
0 vote113 views1 answer
Style percent not found vba
VBA
0 vote127 views1 answer
Vbnet check if number is even or odd
VBA
0 vote117 views1 answer
Excel vba hide columns
VBA
0 vote131 views1 answer
Priavte sub with multiple handels find sneder
VBA