Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code for combining text and deleting row for c10 thru entire range
Excel 2003, I am trying to format a CSV file which has data separated into 2
different rows. I would like to look where column a is null (no text) and column c has text and where column b from the previous row begins with "38" for example 10 A B C D 11 Harris 38bqw Open Window and apply Complete 12 adhesive to edges I would like add c12 to the end of c11, delete c12 and loop same for entire range on sheet. Range is usually not more than 1000 rows. Thanks in advance. -- By persisting in your path, though you forfeit the little, you gain the great. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code for combining text and deleting row for c10 thru entire range
Sub cobineRows()
RowCount = 1 Do While Range("C" & RowCount) < "" If Range("A" & (RowCount + 1)) = "" And _ Range("C" & (RowCount + 1)) < "" Then Range("C" & RowCount) = _ Range("C" & RowCount) & _ Range("C" & (RowCount + 1)) Rows(RowCount + 1).Delete End If RowCount = RowCount + 1 Loop "DavidH56" wrote: Excel 2003, I am trying to format a CSV file which has data separated into 2 different rows. I would like to look where column a is null (no text) and column c has text and where column b from the previous row begins with "38" for example 10 A B C D 11 Harris 38bqw Open Window and apply Complete 12 adhesive to edges I would like add c12 to the end of c11, delete c12 and loop same for entire range on sheet. Range is usually not more than 1000 rows. Thanks in advance. -- By persisting in your path, though you forfeit the little, you gain the great. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code for combining text and deleting row for c10 thru entire r
Thank you Joel. Works great.
-- By persisting in your path, though you forfeit the little, you gain the great. "Joel" wrote: Sub cobineRows() RowCount = 1 Do While Range("C" & RowCount) < "" If Range("A" & (RowCount + 1)) = "" And _ Range("C" & (RowCount + 1)) < "" Then Range("C" & RowCount) = _ Range("C" & RowCount) & _ Range("C" & (RowCount + 1)) Rows(RowCount + 1).Delete End If RowCount = RowCount + 1 Loop "DavidH56" wrote: Excel 2003, I am trying to format a CSV file which has data separated into 2 different rows. I would like to look where column a is null (no text) and column c has text and where column b from the previous row begins with "38" for example 10 A B C D 11 Harris 38bqw Open Window and apply Complete 12 adhesive to edges I would like add c12 to the end of c11, delete c12 and loop same for entire range on sheet. Range is usually not more than 1000 rows. Thanks in advance. -- By persisting in your path, though you forfeit the little, you gain the great. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combining Text from 2 Columns into 1 then Deleting the 2 Columns | Excel Worksheet Functions | |||
Combining Cell Contents - entire columns | Excel Worksheet Functions | |||
Code for deleting entire row | Excel Programming | |||
Code to copy range vs Copy Entire Worksheet - can't figure it out | Excel Programming | |||
Ideal Code deleting rows/based on bold text | Excel Programming |