Help needed to shift cells left if the cell to left of it is blank

[djpotter]

Hi all,

I need some help to solve a problem on an Excel 2007 spreadsheet.

Basically, I have 12 columns with 47571 rows in, and what I'd like to do is run a macro that will automatically check every cell to see if the cell to the left of it is blank, and if so, will move the data in that cell to the left to fill the blank cell.

So basically, it would tidy up the data in each row, eliminating all the blank cells while still keeping all the data in the same row. It doesn't matter that the data is shifting columns.

Any help would be greatly appreciated!

Thanks

David
djpotter@gmail DOT com

 

[actualDOOD]

Welcome to the MrExcel board!

Test this on a copy of your workbook (or a smaller data set first).


Sub MoveLeft()
****ActiveSheet.UsedRange.SpecialCells(xlBlanks).Delete Shift:=xlToLeft
End Sub

As someone who has done some programming before, how would I be able to teach myself how do something like this outside of 'googling'? I've watched some VBA videos, and understand some basics, but I would never be able to figure this out on my own.

 

[actualDOOD]

Macro recorder actually worked quite well! But that was because I knew how to do this using point and click commands..