/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 vote163 views1 answer
Excel vba to lower case
VBA
0 vote169 views1 answer
Vbnet find highest value in chart
VBA
0 vote166 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote177 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
3 votes200 views2 answers
Vba date to string
VBA
0 vote167 views1 answer
How to mount floppy disks in vb.net
VBA
-1 vote155 views1 answer
Text to speech vb.net
VBA
0 vote196 views1 answer
Vba cell all borders
VBA
1 vote169 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote154 views1 answer
Replace spaces with underscores vbnet
VBA