Inserting Multiple Rows into Spreadsheet
Rows can be added with a macro by looking at data on the worksheet to
determine where rows ae added.
Sub AddRows()
IDNum = 123
LastRow = Range("A" & Rows.Count).end(xlup).Row
for RowCount = LastRow to 1 step -1
if Range("A" & RowCount) = IDNum then
Rows(RowCount + 1).Insert
end if
next RowCount
End Sub
"Auburn Jon" wrote:
I have several spreadsheets of 14,000-15,000 lines each that need rows added
at intervals determined by an ID code in column A. The number of rows of
data varies from 7 to 24. The macros I've seen posted deal with a more fixed
interval. Can this be modified to essentially add rows at random, or is
there another possibility?
Thanks for any Info
|