/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 vote394 views1 answer
Excel vba copy range with filter
VBA
0 vote355 views1 answer
Vbnet line chart showing extra space
VBA
0 vote366 views1 answer
Vba first cell in range
VBA
0 vote390 views1 answer
Create links in msgbox in vb
VBA
6 votes408 views1 answer
Excel vba get the path of current workbook
VBA
0 vote365 views1 answer
Vbscript Trim
VBA
0 vote355 views1 answer
Visual stuiod not recognising desgined labels
VBA
18 votes523 views3 answers
Excel-vba make integer
VBA
25 votes532 views3 answers
String to date vb
VBA
1 vote396 views1 answer
Vb.net get name by Cell Click
VBA