当A至G列不为空时，G列后面的全部列自动填充上一行的公式？

阿航ex

请教一下各位高手，如何用VBA写个操作，
当A至F列不为空时，G列后面的全部列自动填充上一行的公式
应该怎样写个代码？人工拉的话，比较费时间

幼稚园儿童

看看可不可以

阿航ex

幼稚园儿童 发表于 2023-5-16 14:52
看看可不可以

测试可以，但好像后面多加载了两行公式。

C:\Users\hang\Desktop\pic1.png

幼稚园儿童

糊涂了，获取的是最后一行，填充是从第三行开始，所以Y要减2
Sub 填充()
Dim X, Y
X = Int(InputBox("请输入列数", "列数", 341))
Y = Cells(Rows.count, 1).End(3).Row - 2
For i = 7 To X
    Cells(3, i).AutoFill Cells(3, i).Resize(Y, 1)
Next
End Sub

ykcbf1100

参与一下。