Horje
excel insert blank row for value change in column Code Example
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



Vb

Related
extract word in a text in excel Code Example extract word in a text in excel Code Example
extract the nth word from a text string Code Example extract the nth word from a text string Code Example
excel vba how to reset usedrange Code Example excel vba how to reset usedrange Code Example
vba file from path Code Example vba file from path Code Example
excel vba determine number of elements in a 2D array Code Example excel vba determine number of elements in a 2D array Code Example

Type:
 Code Example
Category:
 Coding
Sub Category:
 Code Example
Uploaded by:
 Admin
Views:
 9



 

Horje