/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 vote175 views1 answer
Excel vba protect scenarios
VBA
0 vote166 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
0 vote158 views1 answer
Vba leading zeros in string
VBA
0 vote118 views10 answers
Vba excel create event log
VBA
15 votes300 views2 answers
Xl vba dynamic string array
VBA
0 vote164 views1 answer
Average vba
VBA
0 vote165 views1 answer
Vba character ascii code
VBA
0 vote193 views1 answer
Visual basic run command
VBA
1 vote159 views1 answer
How to put a gridpain in a vbox
VBA
0 vote157 views1 answer
Vlookup columns not next to each other
VBA