ブックからブックへのセルのコピー "下付き文字範囲外"

Question

良い日。

"A - M"からセルを（左から右に）選択し、最後に使用する行まで（下向き）セルを選択するコードを記述しようとしています。
次に、一度選択すると、別のワークブックにコピーしていました。

これは、私が使用しようとしたコードです：

ActiveWorkbook.Worksheets("Sheet1").Range("A1:M" & LastRow).Copy _ 
    Workbooks("Converter.xlsm").Worksheets("Sheet1").Range("A1").CurrentRegion 

この行以外のコードの作品に他のすべて。

Run-time error '9': 

Subscript out of range 

ありがとう：
そして結果がこれです。

PS。私が使った "LastRow"変数、私はちょうどチュートリアルからそれを取り出した。それは個人的なユーザ定義の変数ではないので、実際にVBAのドキュメンテーションからのものかどうかはわかりません。

Answer 1

あなたはLastRowの計算がないと述べました。

1. モジュールの先頭に常にOption Explicitを入れてください。変数を宣言し、別のコーダーから取得したものが「組み込み」であるかどうかを確認するのに役立ちます。
2. 範囲内の最後の行の決定については、this postを参照してください。そのポストから

3. 、あなたがそのようなコードのあなたの行の前に次のように計算を持っている必要があります...

   LastRow = Sheets("Sheet1").Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Row 
   

Answer 2

すべてのブックを閉じて再度開くと、コード

以下にしてみてください

Sub test() 
    Dim lastrow As Long 
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    ActiveWorkbook.Worksheets("Sheet1").Range("A1:M" & lastrow).Copy Workbooks("Converter.xlsm").Worksheets("Sheet1").Range("A1") 
End Sub