自動充填が機能しないのはなぜですか？

Question

あなたは、以下で助けることができますように、私はこれがなぜ機能していないのか分かりませんし、それを理解できないようです。いくつかのグーグルの後、私はこの問題の別の例を見つけることさえできません。

コードは基本的に1ページのデータを取り、別のページにHLOOKUPSを配置してすべてを正しい列に並べ替えます（すべて正常に動作します）。それが完了すると、行数を使用して自動的に書き込まれます。

私が持っている問題は、それが（それがいっぱいにシートのコードがで、どこの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 

：明示的に私は、このようなとして使用するシートを呼び出そうとしました。これを修正する方法（さらに重要なのは、どうしてそれが起こっているのか）について助けることができる助けがあれば、大いに感謝します。

Answer 1

Withステートメントにオートフィルがある場合、Rangeの前に "。"を使用してみます。

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