Selection.AutoFill目标：=范围错误

我无法使上述代码正常工作。我正在尝试运行一个选择自动填充宏的两个不同的变量，这些变量是存储区域并且正在运行时出错。任何帮助将是惊人的！Selection.AutoFill目标：=范围错误

Sub Automation_BOBJ() 

Dim startPointBobjGL As Range 
Dim bobjGLNextCell As Range 
Dim bobjGLLastCell As Range 

Set startPointBobjGL = Range("A3") 
Set bobjGLNextCell = startPointBobjGL.End(xlToRight).Offset(0, 1) 
Set bobjGLLastCell = startPointBobjGL.End(xlToRight).Offset(13, 1) 

bobjGLNextCell.FormulaR1C1 = "=VLOOKUP(RC[-4],R2C2:R27C15,(MONTH(TODAY())+1),0)" 

Selection.AutoFill Destination:=Range(startPointBobjGL, bobjGLLast), Type:=xlFillDefault 

ActiveCell.FormulaR1C1 = "103100335.7" 

End Sub

来源

2017-04-13 Black Katz

在哪一行，你得到的错误？请注意，如果'bobjGLNextCell'仍然是'A3'，'B3'，'C3'或'D3'，那么'bobjGLNextCell.FormulaR1C1 =“= VLOOKUP（RC [-4] ...''会产生错误，因为查找值必须是左边的4列，如果没有选择任何内容或没有激活特定的表单，可能会导致问题的另一行是'Selection.AutoFill ....'。您可能希望在这里更加精确。其中一个示例如下所示：https://msdn.microsoft.com/en-us/library/office/ff195345.aspx – Ralph

我在此行上收到错误消息：Selection.AutoFill Destination：= Range（bobjGLOrigCell，bobjGLLast），Type ：= xlFillDefault 错误是1004：object_Global的范围失败 –

我想这应该是这个样子......

bobjGLNextCell.AutoFill Destination:=Range(bobjGLNextCell, bobjGLLastCell), Type:=xlFillDefault

来源

2017-04-13 12:40:58 sktneer

我得到范围类的错误自动填充方法失败，请使用此 –

好吧，让我们举个例子，假设你的公式在A2中，并且你想在公式中填写公式范围A3：A15，语法就像范围（“A2”）。自动填充范围（“A2：A15”），xlFillDefault。这里请注意公式单元格也包含在目标范围A2：A15中。 – sktneer

Selection.AutoFill目标：=范围错误

回答

相关问题