LastRowでActiveCell-Rangeを拡張する

Question

この範囲/機能を使用するにはいくつかの問題があります。

：私は後でVeryLastRow2（命名のための1）を定義するため、以下のものを使用して、すでにコピーされた値

Range("I & (r3 + 3):J & VeryLastRow2").Select 
activesheet.Paste 

に提出される範囲を埋めるためにしようとしているものと

​​

Dim VeryLastRow2 As Long 
With activesheet 
    VeryLastRow2 = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 

私は、これが機能しない理由さっぱりだが。

他の提案もあります。必要な場合、データはシートの中央にあります（常にColumn I + Jにあります）が、最後の行までは可変の行数で表示されます。

Answer 1

変数は引用符の中にあり、評価されていませんが、テキストとして配置されます。 J & VeryLastRow2、 あなたが好きなあなたの変数からテキストを区切る必要があります：

Range("I & (r3 + 3):J & VeryLastRow2").Select 

これは私が&（R3 + 3）名前をレンジに評価R3 = 8を言うときしたがって

Range("I" & (r3 + 3) & ":J" & VeryLastRow2).Select 

とverylastrow2 = 2000の場合、範囲はI11になります。J2000