Comment définir une variable Range en utilisant deux autres variables Range?

Question

Dans mon macro Excel, j'ai deux Range variables de type de données

• RangeStrt avec valeur disent Range("A1")
• RangeEnd avec valeur dire Range("C10")

J'ai besoin d'une troisième plage variable DataRng qui stockera la gamme du début à la fin (c.-à-d. Range("A1:C10")).

Y at-il de toute façon que je peux le faire?

Answer 1

Utilisez

Set dataRng = Range(RangeStrt, RangeEnd) 

Answer 2

L'aspect technique sur la façon de régler la Range a été donnée dans la réponse ci-dessus par @ user3598756

Je suggère également (dans le cas où vous n'êtes pas déjà familier) pour se qualifier pleinement votre Range s, avec la feuille de travail pertinente où se trouvent ces plages.

Donc, vous devez ajouter With Worksheets("YourSheetName") avant la mise en place des plages, et dans l'instruction With, qualifier votre Range en ajoutant un . avant.

code

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

En plus de la réponse @ de user3598756 (qui est OK), vous pouvez également utiliser:

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

Personnellement, je prefear celui-ci parce que vous pouvez utiliser plus facilement un index dans la formule des cellules.