/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 vote137 views1 answer
Text to speech vb.net
VBA
3 votes157 views1 answer
Vba continue for each loop
VBA
0 vote161 views1 answer
Excel last used row
VBA
2 votes102 views1 answer
Excel vba pause
VBA
0 vote143 views1 answer
Vba get relative cell address
VBA
0 vote145 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
5 votes162 views1 answer
Xlvba double quotes in string literal
VBA
0 vote151 views1 answer
Vba full date format
VBA
4 votes142 views1 answer
Excel vba check cell not empty
VBA
1 vote147 views1 answer
Excel vba last column in range
VBA