Excel replace cell with constant

I have an Excel spreadsheet.
I need to search for each cell for 2001 in the column.
Each cell will have other unnecessry data besides 2001.
For each cell with 2001 I need to replace the entre cell with 1.
Thank you.