excel自动生成和上列相同的数字

时间：2018-03-06 13:35:57 收藏：0 阅读：246

Sub 宏宏宏宏宏宏宏1()

For x = 2 To ActiveSheet.UsedRange.Rows.Count - 2 Step 1

If Cells(x, 1) <> Cells(x + 1, 1) And Cells(x + 1, 1) = "" Then

Cells(x + 1, 1).Value = Cells(x, 1)

End If

Next

End Sub

Cells(x, 1)代表2行1列，改成对应你的户编号列数字就可以了

原文：https://www.cnblogs.com/luohaolqitfk/p/8513783.html