Insert 1 into blank cells in a column

B

bradyj7

Board Regular
Joined
Mar 2, 2011
Messages
106
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.
 

Excel Facts

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.
Sort by date Sort by votes
Try
Code: 
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
 
Upvote 0
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.
 
Upvote 0
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.
 
Upvote 0
kpark91 said:
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.
Click to expand...

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
 
Upvote 0
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

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


</PRE>


Does that help?
 
Last edited:
Upvote 0
jonmo1 said:
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
Click to expand...

They seem to output the same result..

Edit: OHHHH nvm :P thank you very much!
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Solved
VBA to insert filename in a new column for all files in a folder
Replies
2
Views
113
psion2600
P
C
  • Solved
Extracting data with VBA macro button from files in designated folder
2 3
Replies
20
Views
1K
Micron
M
J
  • Question Question
VBA or formula to move data in last used column to column A
Replies
5
Views
187
Peter_SSs
Peter_SSs
P
  • Question Question
Automatically Inserting Blank Rows
Replies
3
Views
330
kvsrinivasamurthy
K
zookeepertx
  • Question Question
Find location of a string to use in a For Loop
Replies
3
Views
84
Joe4
Joe4

Forum statistics

Threads
1,224,587
Messages
6,179,735
Members
452,939
Latest member
WCrawford

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top