/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 vote152 views1 answer
Visual stuiod not recognising desgined labels
VBA
22 votes267 views1 answer
Excelvba check for directory
VBA
0 vote143 views1 answer
Move bindingnavigator vb
VBA
5 votes166 views1 answer
Excel vba get user selected range
VBA
0 vote145 views1 answer
Add text to combobox drop down vb
VBA
4 votes90 views2 answers
Vba last row
VBA
0 vote166 views2 answers
Get unique random number in vb.net
VBA
0 vote132 views1 answer
Vb net check if file exists
VBA
0 vote143 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
1 vote148 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA