edit text in a cell with text from another cell

[victorcarreto]

Hello can any one help me I want to use exel to align two texts. Anyways, I am looking for a way to take the text on cell A2 to the end of the text on cell A1, and delete A2, shifting the other cells up. Is it possible to do it by using a shortcut key? How can I do this?

I really apreciate any help.
Regards

Vic.-

 

[xladept]

Hi victorcarreto,

Here's a little macro if you really want to do that:

Sub CombinenShift(): Dim S As String
S = Range("A1") & " " & Range("A2")
Range("A1") = S
Range("2:2").EntireRow.Delete Shift:=xlUp
End Sub

 

[victorcarreto]

Hi xladept,

thank you for your reply... I appreciate it very much.

I just have one question, will this code you just give me, will work for any cell? lets say that now I am on B301 and I want to add the text on cell B301 to the text on B300 and then delete B301 shifting the cells up? or this macro will only work for cells A1 and A2?

Regards

Vic.-

 

[xladept]

It might work with any cell combination as long as you select the top one - but here's one that should work for sure:

Sub CombinenShift(): Dim S As String
S = ActiveCell & " " & ActiveCell.Offset(1, 0)
ActiveCell = S
ActiveCell.Offset(1, 0).EntireRow.Delete Shift:=xlUp
End Sub

 

[victorcarreto]

IT WORKS...

thank yo so much...

In case I want to delete just that one cell, and not the entire row, can I just change EntireRow for ActiveCell?

 

[xladept]

Hi victorcarreto,

Yes but you probably just want to erase it:

Sub CombinenShift(): Dim S As String 
S = ActiveCell & " " & ActiveCell.Offset(1, 0) 
ActiveCell = S 
ActiveCell.Offset(1, 0).ClearContents 
End Sub