vba - 通过用户指定的列数自动填充同一行中的公式

Question

我通过A5:D5录制了一个宏来自动填充公式.但是，宏应该询问用户他/她想要自动填充公式的列数，而不是每次都填充到 P 列。例如如果用户给出 6 列，公式应填写 A5:F6等等。

Range("A5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C<=R8C4,EDATE(RC[-1],1),"""")"
Selection.AutoFill Destination:=Range("A5:D5"), Type:=xlFillDefault

我试着这样做。

Dim myValue As Integer
myValue = InputBox("Enter number of months")
Range("A5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C<=R8C4,EDATE(RC[-1],1),"""")"
Selection.AutoFill Destination:=Range("A5:" & myValue & "5"),   Type:=xlFillDefault

Answer 1

将最后一行代码替换为:

 Range("A5").Resize(1,myValue).FillRight

实际上，您可能可以用这一行替换最后 3 行:

 Range("A5").Resize(1,myValue).FormulaR1C1 = "=IF(R[-1]C<=R8C4,EDATE(RC[-1],1),"""")"