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.

 

[kpark91]

Try

Dim LR As Long
LR = ActiveSheet.UsedRange.Rows.Count
 
For i = 1 To LR
    If Range("B" & i).Value = "" Then
        Range("B" & i).Value = 1
    End If
Next i

 

[Jonmo1]

You can do this without a macro...

Highlight column B
Press CTRL + G
Click Special
Select Blanks
Click OK
Tye a 1
Press CTRL + ENTER


If it must be a macro, use the macro recorder (tools - macro - record new macro) to record the above steps.


Hope that helps.

 

[kpark91]

If you are using jonmo1's method, make sure you have not changed anything to the worksheet (or save) and there isn't any date cell formatting as it picks it up.

 

[Jonmo1]

If you are using jonmo1's method, make sure you have not changed anything to the worksheet (or save) and there isn't any date cell formatting as it picks it up.

So does your macro

UsedRange.Rows.Count is also subject to whatever Excel thinks is the last used row.


To prevent that, you would need to use an adjescent column to determine the last row to apply this to..Say column A for example

And change this line

LR = ActiveSheet.UsedRange.Rows.Count

to

LR = ActiveSheet.Cells(Rows.Count, "A").End(xlup).Row

 

[Ron Coderre]

I inadvertently posted this response in your duplicate thread:

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

</PRE>


Does that help?

 

[kpark91]

So does your macro

UsedRange.Rows.Count is also subject to whatever Excel thinks is the last used row.


To prevent that, you would need to use an adjescent column to determine the last row to apply this to..Say column A for example

And change this line

LR = ActiveSheet.UsedRange.Rows.Count

to

LR = ActiveSheet.Cells(Rows.Count, "A").End(xlup).Row

They seem to output the same result..

Edit: OHHHH nvm :P thank you very much!

 

[bradyj7]

Hi thanks for all the replies, it works perfect.