/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

-1 vote183 views1 answer
Vba code to add new column in table
VBA
0 vote196 views2 answers
Excel vba protect cells with formula
VBA
20 votes443 views1 answer
Excel vba factorial
VBA
0 vote187 views1 answer
Returns an array from function vba
VBA
0 vote187 views1 answer
VBA Sleep Snippet
VBA
-1 vote190 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote186 views1 answer
Dynamic array vba
VBA
1 vote216 views1 answer
Vb.net get name by Cell Click
VBA
0 vote173 views1 answer
Vbnet get file name from path
VBA
0 vote187 views1 answer
Windows Presentation Foundation dark title bar
VBA