/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

6 votes231 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote237 views4 answers
How to continue formula in below line in vba code
VBA
0 vote227 views1 answer
Excel run macro every 5 minutes
VBA
1 vote232 views2 answers
Get all column names from excel vba
VBA
0 vote234 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote238 views1 answer
Vba cell all borders
VBA
0 vote210 views1 answer
Vba type variable
VBA
3 votes243 views2 answers
Vba date to string
VBA
0 vote210 views1 answer
Vba get text file content
VBA
18 votes307 views3 answers
Excel-vba make integer
VBA