/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 vote390 views2 answers
Excel vba store array and write to sheet
VBA
0 vote280 views1 answer
Excel vba arrondir
VBA
0 vote315 views1 answer
Vba simple quote
VBA
0 vote306 views1 answer
Vba word open document read only
VBA
0 vote326 views1 answer
Vba sort the data Z to A
VBA
0 vote322 views1 answer
Enable macros on opening workbook vba
VBA
5 votes359 views1 answer
Excel vba get user selected range
VBA
0 vote316 views1 answer
Vba border weight
VBA
0 vote456 views1 answer
Vba array of integers
VBA
0 vote365 views1 answer
Visual basic run command
VBA