If any cell in column contains value then fill blank cells in column with !

Hi everyone,

I have a very messy data sheet I'm trying to clean up. I've done everything except the following:

If any column in range A1:BB500 has at least one cell with a value in it, then all other blank cells in that column will have (fill) pasted into it. If there are no values in a column within that range, then nothing happens.

Any ideas?

Thanks!!

Hi walrus,

Thanks for code. I'm getting an error message that no cells were found. Error is at d.SpecialCells(4).Value = "(fill)"
I've tried changing d.find("*") to d.find("") without success.

Any ideas?

Hi walrus,

Thanks. I'm afraid I'm still getting the same error message on d.SpecialCells(4).Value = "(fill)". Again, if there is at least 1 cell in a column in the range that has a value, then all other blank cells in that same column have (fill) listed into them. If there is a column in the range that doesn't have any values then its ignored. It has to be based on column, no row. Thanks very much for your help thus far!

Maybe:

Please Login or Register  to view this content.