• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 66
  • Last Modified:

Populate blank cells with cell above


I have an excel spreadsheet.
There are many blank cells
basically i drag down the cell above up but not including the next populated cell below and continue the process until done.
this is tedious and time consuming if you have many blank cells in hundreds of rows.

how can I use a formula for this?
please see attached
1 Solution
Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
I don't know what you mean.

However, if you want to fill in blank cells:

1. Add a filter.
2. Filter on blanks "(blank)".
3. In the first blank cell - let's say it's A2:
a. If you wanted the cell above, enter =A1
b. If you wanted the cell below, enter = A3
4. Copy this cell.
5. Paste it into all of the other blank cells.

That will populate an entire column at once without overwriting cells which already have information.
Martin LissOlder than dirtCommented:
Here's a macro

Sub FillEm()
Dim lngLastRow As Long
Dim lngLastColumn As Long
Dim lngRow As Long
Dim lngCol As Long

lngLastColumn = Cells.Find("*", SearchOrder:=xlByColumns, LookIn:=xlValues, SearchDirection:=xlPrevious).Column
lngLastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For lngRow = lngLastRow To 2 Step -1
    For lngCol = 1 To lngLastColumn
        If Cells(lngRow, lngCol) = "" Then
            Cells(lngRow, lngCol) = Cells(lngRow - 1, lngCol)
        End If

End Sub

Open in new window

NorieVBA ExpertCommented:
1 Select column A.

2 Goto Find & Select>Goto Special....Blanks.

3 Type =A2 in the formula bar and confirm with CTRL+ENTER.

4 Optional. Select column A, copy and paste special values.

If you want code.
Sub FillBlanks()
    With Range("A:A")
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
End Sub

Open in new window

pdvsaProject financeAuthor Commented:
nery nice.
pdvsaProject financeAuthor Commented:
Philip, I Reread  your answer and I think you are essentially stating what Norie has stated  however I think Norie has a slightly different solution with finding blanks and replacing with cell above.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now