excel 空白数据行自动生成，并填充数据3

发布网友发布时间：2023-09-10 17:53

共3个回答

热心网友时间：2024-11-26 11:18

用VBA可以实现你的需求
如果不想用VBA，就用公式处理，
假设你的数据在A：B列，那么在D、E列如下方法
1.在D2输入公式=row(a1)　公式下拉到最大号
2.在E2输入公式=IFERROR(VLOOKUP(D1,A:B,2,0),0)　　公式下拉完成
3.选择D:E列并复制，右键选择性粘贴，把数值选择上，确定，这时这两列不是公式了
把ABC三列删除即可
这方法比较死板，不如VBA灵活。VBA可以做到自动插入行
代码如下
Sub test()
Dim i&, x&
i = Range("A65536").End(xlUp).Row
For x = 1 To 100
If Cells(x + 1, 1) <> x Then
Rows(x + 1).Insert
Cells(x + 1, 1) = x
Cells(x + 1, 2) = 0
End If
Next x
End Sub
运行这个宏就得到你要的数据，此代码以100岁为例，如果是80岁，循环到80即可

热心网友时间：2024-11-26 11:19

用辅助列
假设上述数据位于A列和B列

C1：=ROW()
D1：=IF(COUNTIF(A:A,C1)>0,VLOOKUP(C1, A:B, 2, 0),0)

把C1、D1向下复制填充，就填充到最大年龄所对应的行数即可。

热心网友时间：2024-11-26 11:19

用VBA可以实现你的需求