/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 vote298 views1 answer
Vba multiple optional arguments
VBA
0 vote310 views1 answer
Vba remove the first character of string
VBA
0 vote284 views1 answer
Excel vba delete folder
VBA
0 vote292 views1 answer
Excel vba remove formatting from cell
VBA
0 vote319 views1 answer
Excel vba first column in range
VBA
0 vote295 views1 answer
Build an index all files of a FTP site
VBA
0 vote296 views1 answer
Add text to combobox drop down vb
VBA
0 vote291 views1 answer
Vba first cell in range
VBA
0 vote290 views1 answer
Vbscript for loop
VBA
12 votes372 views1 answer
Excel vba write string to text file
VBA