Copy cells in excel if cell above is null Closed

Question

Hello, 

Can anyone help?

I need to run a script that will determine if a1 is blank, paste the information from a2 into the a1.  If a1 is not null, it should do nothing.  This needs to be run for every other cell.  If a3 is null, paste information from a4.  If a3 is not null, do nothing. And so on, and so on.  

Any ideas??  Thanks in advance!

Configuration: Mac OS X / Firefox 10.0.2

venkat1926 · Answer

why not just sort  column A

aquarelle · Answer

Hi,

Try this macro :

Sub CompleteEmptyCell()

x = Range("A65536").End(xlUp).Row

For y = 1 To x
If Range("A" & y) = "" Then Range("A" & y) = Range("A" & y + 1)
Next

End Sub



Best regards

Copy cells in excel if cell above is null

2 responses

Similar discussions

Subscribe To Our Newsletter!