Selective concatenation using VBA

  • Thread starter Thread starter Colin Hayes
  • Start date Start date
C

Colin Hayes

Hi

In column A , I have some cells with content , some blank.

In column B , all the cells have content.

I need to transfer the content of the cells in column B to column A ,
BUT ONLY to the cells in column A which are blank.

Cells which already have content in column A should remain unchanged.
Only the blank ones should be updated with the content of the cells from
B.

Can someone help with small routine to do this?

Grateful for any assistance.



Best Wishes


Colin
 
try
Sub copytoblank()
For Each c In Range("a18:a23")
If Len(c) < 2 Then c.Value = c.Offset(, 1)
Next
End Sub
 
AutoFilter Blanks in Column A, now you have all the blank cells in column A
enter the formula in the first blank cell in column A
example the first blank cell is in A5. Formula in A5: =B5, drag the Fill
Handle to copy
 
Then, if you need to actually transfer the content (rather than just the
reference), select column A, copy it, and choose Edit/Paste Special,
selecting the Values radio button. Click OK.
 
Back
Top