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