/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 vote365 views1 answer
Sort dictionary by key vba
VBA
0 vote372 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote335 views1 answer
Vba check 32 or 64 bit
VBA
0 vote328 views1 answer
Remove series name from legendvbnet
VBA
3 votes334 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote379 views1 answer
Filesystemobject vba reference
VBA
1 vote350 views1 answer
Set font for ms chart vb.net
VBA
0 vote322 views1 answer
Vba argument is set
VBA
0 vote312 views1 answer
Vbnet add new ecel sheet
VBA
0 vote345 views1 answer
Vba min
VBA