자동 채우기가 작동하지 않는 이유는 무엇입니까?

당신이 아래에서 도울 수 있으리라 생각합니다. 왜 이것이 작동하지 않는 지 전혀 알지 못합니다. 알아낼 수없는 것 같습니다. 인터넷 검색을 한 후에도이 문제의 또 다른 예를 찾을 수 없습니다.자동 채우기가 작동하지 않는 이유는 무엇입니까?

기본적으로 코드는 한 페이지에서 데이터를 가져와 다른 페이지에 HLOOKUPS를 배치하여 모든 항목을 오른쪽 열로 정렬합니다 (모두 정상적으로 작동 함). 그런 다음 작업이 완료되면 행 수를 사용하여 자동 채워야합니다.

내가 가진 문제는 잘못된 시트에 자동 충전은 (채워 시트가 코드에 어디서 x 째 rowcnt이이다 동일 하나라고 부르고 가치가있을 수도 있다는 것이다.

I 명시 적으로 나는 같은 사용하고자하는 시트 밖으로 전화를 시도 : Range("A2:V2").AutoFill Destination:=Sheets(5).Range("A3:V" & rowcnt), Type:=xlFillDefault를하지만 그런 다음이 응용 프로그램 정의 또는 개체 정의 오류 코드의 적재 선에

Public Sub FormatData() 

    rowcnt = Application.WorksheetFunction.CountA(Sheet4.Range("B:B")) + 1 

With Sheets("Final Datasets") 
    .Cells(2, "A").FormulaR1C1 = _ 
    "=HLOOKUP(""oOrder_date"",'Teradata Downloads'!R1:R1048576,ROW('Final Datasets'!RC),0)" 

[snip] load more of the same as above [/snip] 

     'FILL 
     Range("A2:V2").AutoFill Destination:=Range("A3:V" & rowcnt), Type:=xlFillDefault 

    End With 

End Sub

내가 지금 여기에 제대로 의아해 해요 발생합니다. 이 문제를 해결할 수있는 방법에 대해 도움을 줄 수 있습니다 (더 중요한 것은, 왜 그런 일이 일어나고 있는지). 크게

출처

2016-07-15 StevenWalker

With 문에 자동 채우기가 있으면 Range 앞에 "."를 사용하십시오.

.Range("A2:V2").AutoFill Destination:=.Range("A3:V" & rowcnt)

출처

2016-07-15 07:58:11 Moosli

저는 매우 희망적 이었지만 불행하게도 작동하지 않았습니다. 나는 그것을 with 문과 시트를 추가하려했다. : Sheets (5) .Range ("A2 : V2"). AutoFill Destination : = Sheets (5) .Range ("A3 : V"& rowcnt), Type : = xlFillDefault',하지만 불행히도 작동하지 않았다. – StevenWalker

내 마지막 코멘트를 무시하십시오 - 다른 것들을 편집하고 일했습니다 - 감사합니다! – StevenWalker

@StevenWalker. 다행. 문제는 무엇 이었습니까? – Moosli

자동 채우기가 작동하지 않는 이유는 무엇입니까?

답변

관련 문제