VB.Net：“拖动”公式向下Excel列

Question

我有公式... =IF(D3="Yes",IF(MOD(B3,2)=0,"No Gap","Gap"),"Not 24 Hour")并试图想出一种方法，以编程方式将该公式“拖”到“X”行数。我知道我可以做一个for循环来做这个，但我希望有一个更简单的方法。

谢谢！

Answer 1

如果公式在单元格E3中，请尝试使用此简单宏

Sub formula()
Dim i As Long
i = InputBox("Enter number of rows")
Range("E3:E" & i + 2).formula = Range("E3").formula
End Sub

此宏提示填充公式的行数（本例中范围E3：E）。希望这有帮助