Merging two columns

[Shymanas]

Hi,

I have two columns example:

<table border="0" cellpadding="0" cellspacing="0" width="128"><colgroup><col style="width:48pt" span="2" width="64"> </colgroup><tbody><tr style="height:15.0pt" height="20"> <td style="height:15.0pt;width:48pt" height="20" width="64">AA</td> <td style="width:48pt" width="64">
</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">
</td> <td>BB</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">CC</td> <td>DD</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">
</td> <td>EE</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">
</td> <td>FF</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">GG</td> <td>HH</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">JJ</td> <td>
</td> </tr> </tbody></table>
I want to move the comtents from column B into column A, only if the cell in A is blank.

So the end result I want is as follows:

<table border="0" cellpadding="0" cellspacing="0" width="128"><colgroup><col style="width:48pt" span="2" width="64"> </colgroup><tbody><tr style="height:15.0pt" height="20"> <td style="height:15.0pt;width:48pt" height="20" width="64">AA</td> <td style="width:48pt" width="64">
</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">BB</td> <td>
</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">CC</td> <td>DD</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">EE</td> <td>
</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">FF</td> <td>
</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">GG</td> <td>HH</td> </tr> <tr style="height:15.0pt" height="20"> <td style="height:15.0pt" height="20">JJ</td> <td>
</td> </tr> </tbody></table>
Thanks
Shai

 

[VoG]

Try

Sub b()
Dim c As Range
For Each c In Columns("A").SpecialCells(xlCellTypeBlanks)
    c.Value = c.Offset(, 1).Value
    c.Offset(, 1).ClearContents
Next c
End Sub

 

[Shymanas]

Hi,

Sorry, but how do I post this formula in, and does it go into column c?

Thanks
Shai

 

[VoG]

It isn't a formula, it is a macro.

Press ALT + F11 to open the Visual Basic Editor, select Module from the Insert menu then paste the code into the white space on the right. Press ALT + Q to close the code window.

Press ALT + F8, in the window that pops up double click b.

 

[Shymanas]

Excellent, Thanks
Amer