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

如题所述

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


温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-11-08
这样的话,岂不是一列数据只有相同的一个值
相似回答
大家正在搜