/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 vote149 views1 answer
How to self delete a vbscript file
VBA
0 vote167 views1 answer
Vba full date format
VBA
1 vote162 views2 answers
Get all column names from excel vba
VBA
0 vote165 views1 answer
Excel vba scroll to cell
VBA
-1 vote177 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote172 views1 answer
Vba array of integers
VBA
0 vote175 views1 answer
Label de tableau dans des label.text en VBA
VBA
1 vote171 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote169 views1 answer
Vba parameter adodb null value
VBA
2 votes164 views1 answer
Excel vba extract file name
VBA