/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 vote211 views1 answer
Menus act like radio buttons vb.net
VBA
0 vote208 views1 answer
Change form background image vb
VBA
0 vote192 views1 answer
Excel protect cells with formulas
VBA
0 vote234 views1 answer
Excel vba round to whole number
VBA
5 votes232 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote220 views1 answer
Find database connection string vb
VBA
0 vote213 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote212 views1 answer
Vba apostrophe chr
VBA
0 vote207 views1 answer
Create links in msgbox in vb
VBA
0 vote204 views1 answer
Find days in month vba
VBA