insert an empty row

yacov · #1 08-10-2021, 08:07 AM

Hi

How to insert an empty row every 100 rows? The file contains 24000 rows in two columns.

thanks.
Yacov

Logit · #2 08-10-2021, 10:03 AM

This code uses Col A as a means to track where to insert a blank row.

Code:

Option Explicit

Sub InsertBlankRows()
Dim lr As Long, r As Long

On Error Resume Next

Application.ScreenUpdating = False

    For r = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -100
        If Range("A" & r) <> "" And Range("A" & r - 100) <> "" Then Rows(r).Insert (1)
    Next r
    
Application.ScreenUpdating = True

End Sub

yacov · #3 08-10-2021, 11:27 AM

thanks. works great

Logit · #4 08-10-2021, 01:26 PM

You are welcome.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
If a2 is not empty, color empty cells in b2:af2	turkanet	Excel	2	08-20-2017 11:00 PM
Picture content control -> insert picture -> empty?	Jaymond Flurrie	Word	3	07-13-2016 07:00 AM
How do I insert pictures directly into picture boxes by clicking the box instead of using INSERT>PIC	Bree	Word	1	06-24-2016 10:32 PM
automatic insert hypens until the end of the row and in empty rows between paragraphs	Ivica	Word	3	12-28-2015 01:31 PM
Apparently empty (blank) cells aren't empty	daymaker	Excel	3	03-08-2012 03:41 PM