Selection.AutoFill Destination : = 범위 오류

위의 코드가 제대로 작동하지 않습니다. 저장된 범위와 오류가 발생하는 두 가지 변수에 대해 선택 자동 완성 매크로를 실행하려고합니다. 어떤 도움이 굉장 할 것입니다! 내가 이렇게해야 추측Selection.AutoFill Destination : = 범위 오류

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 Destination : = 범위 오류

답변

관련 문제