Monday, 10 September 2012

Excel VBA Macro To Insert A Entire Row Between Individual Data Items

Excel VBA Macro to insert a entire row between individual data items based on first column
'We should sort the data before run a macro to insert blank row'
Dim X As Integer
Dim Y As Integer
Dim z As Integer
Dim a As String

For X = 2 To 100

If Cells(X, 1) <> "" And Cells(X, 1) <> Cells(X + 1, 1) Then
Cells(X, 1).Offset(1, 0).EntireRow.Insert
End If

Next X
End Sub

No comments:

Post a Comment

Hi User, Thank You for visiting My Blog. Please post your open Feedback only related to this Blog Posts. Please note that I cannot respond to the Anonymous Comments.

Subscribe to Blog Posts by Email

ExcelKingdom-Popular Posts