VBA Intersect

What is Intersect in Excel VBA?

We can use VBA intersection to get return a range object that is an intersection of two or more range. Below is the syntax of the VBA INTERSECT formula.

• Arg1 as Range: First intersecting range.
• Arg2 as Range: Second intersecting range.

The minimum of two ranges should be supplied to find the intersecting range point. All the other arguments are optional based on the requirement.

In the below examples we will see some of the useful techniques.

Examples of Intersect in Excel VBA

For an example take the same data from the above examples.

Step 1: Declare the variable as Variant.

Code:

Sub Intersect_Example()

  Dim MyValue As Variant

End Sub

Step 2: For this variable assign the value through the VBA INTERSECT formula.

Code:

Sub Intersect_Example()

  Dim MyValue As Variant

  MyValue = Intersect(

End Sub

Step 3: Select the first range as B2 to B9.

Code:

Sub Intersect_Example()

  Dim MyValue As Variant

  MyValue = Intersect(Range("B2:B9"),

End Sub

Step 4: Select the second range from A5 to D5.

Code:

Sub Intersect_Example()

  Dim MyValue As Variant

  MyValue = Intersect(Range("B2:B9"),Range("A5:D5")

End Sub

Step 5: We are testing with only two ranges here. Close the formula and select the method as a VBA Cell Address.

Code:

Sub Intersect_Example()

  Dim MyValue As Variant

  MyValue = Intersect(Range("B2:B9"), Range("A5:D5")).Address

End Sub

Step 6: Show the value in the message box in VBA.

Code:

Sub Intersect_Example()

  Dim MyValue As Variant

  MyValue = Intersect(Range("B2:B9"), Range("A5:D5")).Address

  MsgBox MyValue

End Sub

Ok, we are done and see what we will get in the message box.

We got the result as B5 i.e. cell address of the intersection point of the supplied range.

Like this using the VBA INTERSECT method, we can do many more things.

Code:

Sub Intersect_Example1()

  Dim MyValue As Variant

  MyValue = Intersect(Range("B2:B9"), Range("A5:D5")).Address

  MsgBox MyValue

End Sub

Select the Intersection Cell: In order to select the intersection cell of the supplied range use the below code.

Code:

Sub Intersect_Example2()

  Intersect(Range("B2:B9"), Range("A5:D5")).Select

End Sub

This will select the intersection cell of the supplied range.

Clear Content of the Intersection Cell: In order to clear the content of the intersection cell of the supplied range use below code.

Code:

Sub Intersect_Example2()

  Intersect(Range("B2:B9"), Range("A5:D5")).ClearContents

End Sub

Change the Cell Color Background and Font Color of Intersection Cell: In order to change the background color of the intersection cell and the font color of the intersection cell value using the below code.

Code:

Sub Intersect_Example2()

 Intersect(Range("B2:B9"), Range("A5:D5")).Cells.Interior.Color = rgbBlue
 Intersect(Range("B2:B9"), Range("A5:D5")).Cells.Font.Color = rgbAliceBlue

End Sub

Change the Value of the Intersection Cell: Using the excel VBA INTERSECT function we can also change the value of that cell into something else.

In the above data, the intersect value of the range “B2:B9” & “A5:D5” is cell B5 i.e. marked with blue color. Now by supplying this range to intersect function, we can actually change the value to something else.

The below code will change the value from 29398 to “New Value”.

Code:

Sub Intersect_Example3()

  Intersect(Range("B2:B9"), Range("A5:D5")).Value = "New Value"

End Sub

Run the code above we will get the word “New Value” in place of 29398.

Like this, by using the Excel VBA INTERSECT function we can play around with the middle position value of the supplied range.

Things to Remember

• In excel to get the intersect value of the range, we need to give space character in between two ranges.
• By using VBA coding we can highlight, format, delete or change, and do many other things to the intersection value.
• If the multiple rows and columns supplied to the intersect function then we will get the middle two values.

Recommended Articles

This has been a guide to VBA Intersect. Here we learn examples of excel VBA Intersect along with methods and download template. Below are some useful excel articles related to VBA –

• VBA INSTRREV Excel Examples
• RegEx in VBA
• VBA Comment Block
• VBA ChDir
• Range Cells in VBA
• Subscript Out of Range in VBA
• UsedRange in VBA
• Declare Global Variables in VBA