macro to append one cell to another

[billbeecham]

Hey all....

I have never used macros before, but here goes....

I have alot of data that looks like this ( the dashes are for spacin
purposes since html is off in postings):

----A------------B--------------C
1 sample----data---------example
2 ------------more
3 sample----data---------example
4 -------------more

(no, it's not all the same info, nor always in the same place or
would use a recorded macro)

what I need is a macro to see that A2 is empty and take cell B2 an
append the contents of cell B2 to B1 so that B1 says "data more
instead of just "data"

and do this for the whole worksheet

I have been trying to look into copy and paste for macros, but
straight "copy" and "paste" won't work as it will overwrite the curren
contents of the cell being pasted to.

I have thousands upon thousands of lines I would like to combin
without having to do it all by hand.

Any ideas? Remember, I'm a newbie to excel, but not so new I can'
comprehend... thanks

Bil

 

[R.VENKATARAMAN]

in D1 type his
=IF(A2="",B1&B2,B1)

copy D1 down to the end of the column

then either you can delete B column according to your need or copy D column
to B column

 

[OZDOC1050]

Sub SAMPLEDATAMORE()
Range("B1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(-1, 0).Value + " " +
ActiveCell.Value
ActiveCell.Value = ""
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

This is if all of col B has a value if not it will help you get on track
R
PETE

 

[mangesh_yadav]

I doubt that would solve his problem, as he says that the data is no
uniform. Infact something similar was discussed on this forum, excep
instead of append, rows were inserted. check thread
http://excelforum.com/showthread.php?t=276521

Maybe something like

Dim cRows As Long
Dim i As Long

cRows = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 to cRows
if IsEmpty(Cells(i, "A")) then
for k = i to j step -1
cells(j,"B")=cells(j,"B") & " " & cells(i, "B")
next
end if
j = i
Next i

Haven't tested it, but should work

 

[OZDOC1050]

Sub SAMPLEDATAMORE()
Range("B1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(-1, 0).Value + " " +
ActiveCell.Value
ActiveCell.Value = ""
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

This is if all of col B has a value if not it will help you get on track
R
PETE