Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find first and last instance of value
I want to find the instance of a value and insert a row before and one
after the last instance of the same value. Data is in column A:G, but the value to find is always in column A. The first value is "GroupA" The second value is "GroupB" Before the first instance of "GroupA", insert row and label "GroupA Start" After the last instance of "GroupA", insert row and label "GroupA End". Then the same for "GroupB". |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find first and last instance of value
Sb AddRows()
RowCount = 1 Do while Range("A" & (RowCount + 1)) < "" if Range("A" & RowCount) < Range("A" & (RowCount + 1)) then Rows(RowCount + 1).Insert RowCount = RowCount + 2 else RowCount = RowCount + 1 end if loop end Sub "J.W. Aldridge" wrote: I want to find the instance of a value and insert a row before and one after the last instance of the same value. Data is in column A:G, but the value to find is always in column A. The first value is "GroupA" The second value is "GroupB" Before the first instance of "GroupA", insert row and label "GroupA Start" After the last instance of "GroupA", insert row and label "GroupA End". Then the same for "GroupB". |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find first and last instance of value
This will insert rows at the proper place:
Sub jwa() n = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To n If Cells(i, 1).Value = "GroupA" Then Cells(i, 1).EntireRow.Insert Exit For End If Next '''''''''''''''''''''''''''''''' For i = n + 1 To 1 Step -1 If Cells(i, 1).Value = "GroupA" Then Cells(i + 1, 1).EntireRow.Insert Exit For End If Next End Sub -- Gary''s Student - gsnu200811 "J.W. Aldridge" wrote: I want to find the instance of a value and insert a row before and one after the last instance of the same value. Data is in column A:G, but the value to find is always in column A. The first value is "GroupA" The second value is "GroupB" Before the first instance of "GroupA", insert row and label "GroupA Start" After the last instance of "GroupA", insert row and label "GroupA End". Then the same for "GroupB". |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I find the last instance of data in a column | Excel Worksheet Functions | |||
Find first and last instance | Excel Programming | |||
Find 2nd instance of a word in a range. | Excel Worksheet Functions | |||
Vlookup to find Second INstance | Excel Worksheet Functions | |||
Find nth instance of a character in a string | Excel Discussion (Misc queries) |