Insert 1 into blank cells in a column

[bradyj7]

Hi there,

I'm looking for a macro to insert the number 1 into blank cells in column B. The number of rows can vary from file to file.

Thank you for the help.

 

[StuLux]

What determines how many rows i.e. are there entries in column A for every row that you want to insert a 1 in column B?

 

[Ron Coderre]

This code will enter 1 in all Col_B blank cells that are within the Used Range. If you need restrictions on the last Col_B cell to be considered, let us know

Sub PlugBlanks()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Range("B:B").SpecialCells(xlCellTypeBlanks).Value = 1
End Sub

 

[Jon von der Heyden]

Duplicate: http://www.mrexcel.com/forum/showthread.php?t=550338

Per the forum rules please stick to one thread per question only. Duplicates will be locked or deleted.