/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 vote222 views1 answer
Vba collection key list
VBA
31 votes515 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote210 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote232 views1 answer
VBA Loop to range
VBA
-1 vote228 views2 answers
Excel vba delete empty rows
VBA
0 vote239 views1 answer
Excel vba set cell value to empty
VBA
0 vote209 views1 answer
Vba createparameter null
VBA
0 vote240 views1 answer
Vba code to select image in sheet
VBA
-1 vote217 views2 answers
How close excel through visual basic
VBA
3 votes229 views1 answer
Vba double quote
VBA