/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

2 votes146 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote90 views1 answer
Excel autofilter vba
VBA
0 vote146 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
0 vote153 views1 answer
.net crash app
VBA
0 vote156 views1 answer
Vba registry settings
VBA
0 vote139 views1 answer
Do while not vb.net
VBA
0 vote146 views1 answer
Vba full date format
VBA
0 vote140 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
5 votes161 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote153 views1 answer
Write listbox to text file vb.net
VBA