2017-02-16 2 views

答えて

1

使用

Set dataRng = Range(RangeStrt, RangeEnd) 
0

Rangeを設定する方法についての技術的な側面が

user3598756 @することにより、上記の回答に与えられた私はまた、完全にあなたを修飾する(場合には、あなたがまだ慣れていない)を提案Rangeを、これらの範囲が配置されている関連ワークシートとともに使用します。

だから、あなたは前に.を追加してRangeを修飾、設定アップ範囲を前に、そしてWith文内With Worksheets("YourSheetName")を追加する必要があります。

コード

Option Explicit 

Sub DefineCombinedRange() 

Dim RangeStrt As Range 
Dim RangeEnd As Range 
Dim DataRng As Range 

' add With statement to fully qualify your Ranges 
With Worksheets("Sheet1") '<-- modify "Sheet1" with your sheet's name (where you have your ranges) 
    Set RangeStrt = .Range("A1") 
    Set RangeEnd = .Range("C10") 

    Set DataRng = Range(RangeStrt, RangeEnd) '<-- setting the 3rd range, using the first 2 Ranges 

    ' the line below is for debug 
    Debug.Print DataRng.Address 
End With 

End Sub 
0

(OKです)@のuser3598756の解答の他に、あなたも、この使用することができます:あなたがより多くを使用することができますので、私はこの1つをprefear個人的に

Range(Cells(1,1), Cells(10,3)).Select 

をセルの数式内の簡単なインデックス。

関連する問題