ダイナミックレンジをコードの1行に集約

Question

ダイナミックレンジを作成する最もクリーンな方法を見つけようとしていますが、これは私がやりたいことに近いですが、どうすれば正しいかわかりません。何かご意見は？

Sub Macro1() 
Dim RNG As Range 
With Sheets("Open Jobs Report") 'Change to your sheet 
Set RNG = .Range("A1", .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, .Cells(1, .Columns.Count).End(xlToLeft).Column)) 
End With 

Answer 1

これを試してみてください：

Dim RNG As Range 
Set RNG = .Range("A1", .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, .Cells(1, .Columns.Count).End(xlToLeft).Column)) 

あなたは範囲オブジェクトのいくつかの前に.を使用していたので、私はそれがこのようにして、ブロックであると仮定します。

Sub foooooii() 
Dim RNG As Range 
With Sheets("Sheet3") 'Change to your sheet 
    Set RNG = .Range("A1", .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, .Cells(1, .Columns.Count).End(xlToLeft).Column)) 
End With 
Debug.Print RNG.Address 
End Sub 

Answer 2

は、上の建物スコットの解決策とちょうどそれを少し短くするために：

Set RNG = .Range(.Cells(.Rows.Count, "A").End(xlUp), .Cells(1, .Columns.Count).End(xlToLeft))