Find non blank cell in range and fill the rest with that value

  • Thread starter Thread starter LuisE
  • Start date Start date
L

LuisE

There is only one non-blank cell in a given range; I need to populate the
rest of that range with that value. The cell containing the value could be
anywhere in that range so I can’t use fill down, up, etc by default.

Thanks in advance
 
Select the range and then:

Sub FillRange()
v = ""
For Each r In Selection
If r.Value <> v Then
v = r.Value
Exit For
End If
Next
Selection.Value = v
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
Fin End of Used Range 2
find range and fill down 3
List sorting and macros 3
Fill in the blanks 1
Datavalidation with shrinking non blank values 1
select multiple named ranges with macro 4
Selecting non-blanks cells only 1

Back
Top