値を移動する変数名付き範囲を参照するVBA

Question

コードは、ある範囲から別の範囲に値を移動しようとする最後の行まで期待どおりに機能します。その時点で「実行時エラー1004」が発生するため、何か間違っている。

「NewRng」の範囲では、正しい文字列「$ A $ 1883：$ R $ 2105」が生成され、最後の行に手動で入力した場合（「NewRng」参照を置き換える）、正しい結果が得られます。事前に

おかげ

Dim NevwebLR As String 
    With Sheets("NevWeb file") 
    NevwebLR = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 

    Dim DropShipLR As String 
    With Sheets("Drop Shipments") 
    DropShipLR = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 

    Dim NevwebLR1 As String 
    NevwebLR1 = NevwebLR + 1 

    Dim dropshipglue As Long 
    dropshipglue = Val(NevwebLR) + Val(DropShipLR) 

    Dim rng1 As Range, rng2 As Range 
    Dim NewRng As Range 

     With ThisWorkbook.Sheets("Results") 
      Set rng1 = .Range("A" & NevwebLR1) 
      Set rng2 = .Range("R" & dropshipglue) 

      Set NewRng = .Range(rng1, rng2) 

      Debug.Print NewRng.Address 
     End With 



    Sheets("results").Range(NewRng).Value = Sheets("Drop Shipments").Range("A1:R" & DropShipLR).Value 

Answer 1

あなたはRange -objectとしてすでに先の範囲を持っているので、

NewRng.Value = Sheets("Drop Shipments").Range("A1:R" & DropShipLR).Value