Code for combining text and deleting row for c10 thru entire range

  • Thread starter Thread starter DavidH56
  • Start date Start date
D

DavidH56

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.
 
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
 
Back
Top