Excel宏列自动填充

Question

I have a spreadsheet which I am cleaning and using macros to help. My column 'C' has temperature data. Like with all data, there is some missing. How would I write a macro that would auto-fill the missing spot with previous data?

For example:

  C                                       C

1  37                                   1  37
2  35                                   2  35
3                   -------->           3  35  
4  37                                   4  37
5  36                                   5  36

The spot C3 has been filled with C2's data.

Thank you for your help.

Answer 1

Do you really need VBA for this?

Do this

1. Select Col C
2. Press Ctrl + G
3. Click on Special
4. Next Click on Blanks
5. Click Ok
6. All Empty cells are now selected. Press the = key and then the Up arrow key
7. Lastly press Ctrl + Tab + Enter and you are done.

ScreenShot

Answer 2

Give this a try:

Sub FixC()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "C").End(xlUp).Row
    For i = 2 To N
        If Cells(i, "C") = "" Then
            Cells(i, "C") = Cells(i - 1, "C")
        End If
    Next i
End Sub

Answer 3

How would I write that macro:
This contains only snippets.

loop over all cells in the column:
for each cell in ActiveSheet.Columns(1).Cells

if the cell value is not empty -> save the value to a variable
If cell.value <> Empty then lastCellValue = cell.value

if the cell value is empty -> write the saved cell value into the cell
Else cell.value = lastCellValue

also:
if more than x (eg 20) cells in a row were empty, break from loop