VBA Excel – Refer to Multiple Ranges : Union Method

You can combine more than one Ranges into one Range using Union Method and later on instead of writing all the ranges repeatedly, just use the combined one.

Example

Sub CombileMultipleRange()

   Dim objCombinedR as Range

   Set R1 = Sheet1.Range("H1")   

   Set R2 = Sheet1.Range("M2")

   Set objCombinedR = Union(R1, R2)

 objCombinedR.Interior.ColorIndex = 44

End Sub

Similarly you can combine multiple rows or columns into one Range

Sub CombileMultipleRows()

Dim objCombinedR as Range

Set R1 = Sheet1.Range(Rows(1))   

Set R2 = Sheet1.Range(Rows(5))

Set objCombinedR = Union(R1, R2)

objCombinedR.Interior.Font.Bold = True

End Sub

Also Read:

1. VBA-Excel: Delete Blank Rows from Excel Work Sheet
2. VBA-Excel: Modified Consolidator – Merge or Combine Multiple Excel Files Into One Where Columns Are Not In Order
3. VBA-Excel: String Functions – RTrim()
4. VBA-Excel: Create Dynamic or Run-time WorkSheets using Macro.
5. VBA-Excel: Add Worksheets For All The Given Dates Except Weekends and Copy The Common Template In Each Worksheet