在使用过的单元格后选择空白单元格并复制数据

Question

我有一个问题：

我需要制作空白单元格。 value等于它们之前使用过的单元格的值。我期望的结果是：

你可以观察到空白细胞＆＃39; value取决于它们之前使用的单元格的值。有没有办法用宏来实现这个目标？感谢。

Answer 1

你也可以使用这个：

Public Sub fillBlank()

    Dim row, lastRow As Integer

    With Sheets("sheetname")

        'Getting the last use row.
        lastRow = .Range("B1").SpecialCells(xlCellTypeLastCell).row

        'looping from row 2 to last used row (let row 1 is not blank)
        For row = 2 To lastRow Step 1

            If .Range("C" & row) = "" Then
                .Range("C" & row) = .Range("C" & row - 1)
            End If

        Next row

    End With

End Sub

Answer 2

我在一段时间后自己找到了答案。

For i = 2 To last

If log.Sheets("Entry").Cells(i, 3) <> "" Then

    If log.Sheets("Entry").Cells(i + 1, 3) = "" Then

        log.Sheets("Entry").Cells(i + 1, 3) = log.Sheets("Entry").Cells(i, 3)

    End If

End If

Next i