如何使用两个其他Range变量设置Range变量？

Question

在我的Excel宏，我有两个范围的数据类型变量

• RangeStrt与价值说Range("A1")
• RangeEnd与价值说Range("C10")

我需要第三个范围变量DataRng将存储范围从开始到结束（即Range("A1:C10")）。

有反正我可以做到这一点吗？

Answer 1

使用

Set dataRng = Range(RangeStrt, RangeEnd) 

Answer 2

如何设置Range技术方面是在回答上面给出的@ user3598756

我也建议（如果你还不熟悉）完全符合您的Range s，以及这些范围所在的相关工作表。

所以，你应该设定行动的范围之前添加With Worksheets("YourSheetName")和With语句中之前加入一个.资格的Range。

代码

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 

Answer 3

此外，@ user3598756答案（这是确定）的，你也可以使用这样的：

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

我个人prefear这一个，因为你可以使用更多很容易在Cells公式中找到一些索引。