excel宏制作，表格中一列数据是否一致,不一样的以上一行数据向下填充

Question

如题所述

Answer 1

Sub aa()

Windows.Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim name As String

Dim path As String

Dim i As Long

name = ThisWorkbook.name

path = ThisWorkbook.path

Windows(name).Activate

Sheets(1).Select

f = ActiveSheet.[a65536].End(xlUp).Row

For i = 2 To f

If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1)

Next

Windows.Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

Answer 2

这样的话，岂不是一列数据只有相同的一个值