実行時エラー1004アプリケーション定義またはオブジェクト定義のエラー -

Question

では、次の問題の解決に私を助けてもらえ異なるワークシートに同じ範囲をループ：、SourceWsNrが1に等しいとき

Sub PBLSearch() 

    Dim PBLRng As Range 
    Dim PBL As Range 
    Dim SearchRng As Range 
    Dim SourceWsNr As Integer 

    For SourceWsNr = 1 To 2 
     Debug.Print Workbooks("Book1.xlsx").Sheets(SourceWsNr).Name 
     Set PBLRng = Workbooks("Book1.xlsx").Sheets(SourceWsNr).Range(Range("A1"), Range("A1").End(xlDown)) 
     For Each PBL In PBLRng.Cells 
      Debug.Print PBL.Value 
     Next PBL 
    Next SourceWsNr 

End Sub 

コードが正常に動作しますがこれが2に変わるとすぐに、私はこの問題に言及したエラーを受け取ります。 PBLRng変数を再設定したためですか？私はこの問題に対する解決策を見つけることができませんでした...

ありがとうございます。

S. Sz。

Answer 1

問題が

Workbooks("Book1.xlsx").Sheets(SourceWsNr).Range(Range("A1"), Range("A1").End(xlDown)) 

Range("A1")とRange("A1").End(xlDown)、第2シート上に失敗した理由であるアクティブワークシートのセルを参照している行である（シートの範囲メソッドの引数でなければなりません同じシート上に）。 Rangeを呼び出すときには、これはそれを行う必要がありますシートを毎回指定する必要があります。

With ActiveWorkbook.Sheets(SourceWsNr) 
    Set PBLRng = .Range("A1", .Range("A1").End(xlDown)) 
End With 

編集：あなたも.Cells(.Rows.count,1).End(xlUp)のように、最後の行を見つけるために、別の方法を使用して検討するかもしれません。あなたの特定のニーズにもよりますが。