/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 vote263 views1 answer
How to enter Vbox manage commands
VBA
0 vote214 views1 answer
Vba first cell in range
VBA
1 vote226 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
8 votes317 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote218 views1 answer
Vb get ip address
VBA
3 votes235 views1 answer
Vba not equal
VBA
0 vote233 views1 answer
Excel vba open browser
VBA
0 vote250 views2 answers
Delete all controls from list of control vb.net
VBA
1 vote208 views1 answer
Vba listindex select multiple items vba
VBA
8 votes369 views1 answer
Excel vba determine number of elements in a 1D array
VBA