Question : excel insert blank row for value change in column
Answered by : vikas
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
Source : | Last Update : Thu, 27 Aug 20