Application intersect vba excel

title	keywords	f1_keywords	ms.prod	api_name	ms.assetid	ms.date	ms.localizationpriority
Application.Intersect method (Excel)	vbaxl10.chm183099	vbaxl10.chm183099	excel	Excel.Application.Intersect	856d052a-3207-ced2-941c-b466cb880a93	04/05/2019	medium

Application.Intersect method (Excel)

Returns a Range object that represents the rectangular intersection of two or more ranges. If one or more ranges from a different worksheet are specified, an error is returned.

Syntax

expression.Intersect (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)

expression A variable that represents an Application object.

Parameters

Name	Required/Optional	Data type	Description
Arg1	Required	Range	The intersecting ranges. At least two Range objects must be specified.
Arg2	Required	Range	The intersecting ranges. At least two Range objects must be specified.
Arg3–Arg30	Optional	Variant	An intersecting range.

Return value

Range

Example

The following example selects the intersection of two named ranges, rg1 and rg2, on Sheet1. If the ranges don’t intersect, the example displays a message.

Worksheets("Sheet1").Activate 
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
 MsgBox "Ranges don't intersect" 
Else 
 isect.Select 
End If

The following example compares the Worksheet.Range property, the Application.Union method, and the Intersect method.

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                           'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                      'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

[!includeSupport and feedback]

Определение блока ячеек, расположенного на пересечении двух и более диапазонов, с помощью метода Application.Intersect из кода VBA Excel. Пример.

Описание

Application.Intersect – это метод VBA Excel, возвращающий прямоугольный объект Range, находящийся на пересечении двух или более указанных диапазонов.

Если общие ячейки для всех заданных диапазонов не обнаружены, метод Application.Intersect возвращает значение Nothing.

Если в качестве аргументов метода Application.Intersect указаны диапазоны из разных листов, возвращается ошибка.

Синтаксис

Application.Intersect (Arg1, Arg2, Arg3, ..., Arg30)

• Arg1, Arg2 – обязательные аргументы, представляющие из себя пересекающиеся диапазоны (объекты Range).
• Arg3, …, Arg30* – необязательные аргументы, представляющие из себя пересекающиеся диапазоны (объекты Range).

* Допустимо использование до 30 аргументов включительно.

Пример

Sub Primer() Dim rngis As Range, arg1 As Range, arg2 As Range, arg3 As Range     Set arg1 = Range(«A1:F10»)     Set arg2 = Range(«C4:I18»)     Set arg3 = Range(«D1:F22»)     Set rngis = Application.Intersect(arg1, arg2, arg3)         If rngis Is Nothing Then             MsgBox «Указанные диапазоны не пересекаются»         Else             MsgBox «Адрес пересечения диапазонов: « & rngis.Address         End If End Sub

Строку

Set rngis = Application.Intersect(arg1, arg2, arg3)

можно записать без использования переменных так:

Set rngis = Application.Intersect(Range(«A1:F10»), Range(«C4:I18»), Range(«D1:F22»))

Есть и другой способ определения пересечения диапазонов. Он заключается в использовании свойства Range объекта Worksheet*:

Set rngis = Range(«A1:F10 C4:I18 D1:F22») ‘или Set rngis = Range(arg1.Address & » « & arg2.Address & » « & arg3.Address)

Но у этого способа есть существенных недостаток – свойство Range возвращает ошибку, если пересечение указанных диапазонов не существует. Поэтому преимущество остается за методом Application.Intersect, который, в этом случае, возвратит значение Nothing.

* Если код VBA Excel работает со свойствами активного листа, объект Worksheet можно не указывать. Например, строка MsgBox Name отобразит имя активного листа.

Excel VBA Refer to Ranges — Union & Intersect; Resize; Areas, CurrentRegion, UsedRange & End Properties; SpecialCells

An important aspect in vba coding is referencing and using Ranges within a Worksheet. You can refer to or access a worksheet range using properties and methods of the Range object. A Range Object refers to a cell or a range of cells. It can be a row, a column or a selection of cells comprising of one or more rectangular / contiguous blocks of cells. This section (divided into 2 parts) covers various properties and methods for referencing, accessing & using ranges, divided under the following chapters:

Excel VBA Referencing Ranges — Range, Cells, Item, Rows & Columns Properties; Offset; ActiveCell; Selection; Insert:

Range Property, Cells / Item / Rows / Columns Properties, Offset & Relative Referencing, Cell Address;

Activate & Select Cells; the ActiveCell & Selection;

Entire Row & Entire Column Properties, Inserting Cells/Rows/Columns using the Insert Method;

Excel VBA Refer to Ranges — Union & Intersect; Resize; Areas, CurrentRegion, UsedRange & End Properties; SpecialCells:

Ranges — Union & Intersect;

Resize a Range;

Referencing — Contiguous Block(s) of Cells, Range of Contiguous Data, Cells Meeting a Specified Criteria, Used Range, Cell at the End of a Block / Region, Last Used Row or Column;

---

Related Links:

Working with Objects in Excel VBA

Excel VBA Application Object, the Default Object in Excel

Excel VBA Workbook Object, working with Workbooks in Excel

Microsoft Excel VBA — Worksheets

Excel VBA Custom Classes and Objects

---

———————————————————————————————————

Contents:

Ranges — Union & Intersect

Resize a Range

Referencing — Contiguous Block(s) of Cells, Range of Contiguous Data, Cells Meeting a Specified Criteria, Used Range, Cell at the End of a Block / Region, Last Used Row or Column

———————————————————————————————————

Ranges — Union & Intersect

Use the Application.Union Method to return a range object representing a union of two or more range objects. Syntax: ApplicationObject.Union(Arg1, Arg2, … Arg29, Arg30). Each argument is a range object and it is necessary to specify atleast 2 range objects as arguments.

Using the union method set the background color of cells B1 & D3 in Sheet1 to red:

Union(Worksheets(«Sheet1»).Cells(1, 2), Worksheets(«Sheet1»).Cells(3, 4)).Interior.Color = vbRed

Using the union method set the background color of 2 named ranges to red:

Union(Range(«NamedRange1»), Range(«NamedRange2»)).Interior.Color = vbRed

Example 8: Using the Union method:

Sub RangeUnion()

Range(«A2:B3»)
Set rng2 = ActiveWorkbook.Worksheets(«Sheet3»).

rngUnion.Interior.Color = vbRed

End Sub

Determining a range which is at the intersection of multiple ranges is a useful tool in vba programming, and is also often used to determine whether the changed range is within or is a part of the specified range in the context of  Excel built-in Worksheet_Change Event, wherein a VBA procedure or code gets executed when content of a worksheet cell changes. Using the Application.Intersect Method returns a Range which is at the intersection of two or more ranges. Syntax: ApplicationObject.Intersect(Arg1, Arg2, Arg3, … Arg 30). Specifying the Application object qualifier is optional. Each argument represents the intersecting range and a minimum of two ranges are required to be specified. Refer below examples which explain useing the Intersect method, and also using it in combination with the Union method.

Example 9: Using the Intersect method.

Sub IntersectMethod()
‘examples of using Intersect method

If…Then statement is used.

If Intersect(ActiveCell, Range(«A1:B5»)) Is Nothing Then

‘if the active cell is not within the specified range of A1:B5, say the active cell is A10, then below message is returned:

MsgBox «Active Cell does not intersect»

Else

‘if the active cell is within the specified range of A1:B5, say the active cell is A4, then the address «$A$4» will be returned below:

MsgBox Intersect(ActiveCell, Range(«A1:B5»)).Address

‘—————-

‘consider 2 named ranges: «NamedRange8» comprising of range C1:C8 and «NamedRange9» comprising of range A5:E6:

If Intersect(Range(«NamedRange8»), Range(«NamedRange9»)) Is Nothing Then

‘if the ranges do not intersect, then below message will be returned:

MsgBox «Named Ranges do not intersect»

Else

‘in this case, the 2 named ranges intersect, hence the background color of green will be applied to the intersected range of C5:C6:

Intersect(Range(«NamedRange8»), Range(«NamedRange9»)).Interior.Color = vbGreen

End If

End Sub

Example 10: Using Intersect and Union methods in combination — refer Images 6a, 6b, 6c & 6d.

For live code of this example, click to download excel file.

Sub IntersectUnionMethods()
‘using Intersect and Union methods in combination — refer Images 6a, 6b, 6c & 6d.

‘—————-

‘(2) cells common to both rng1 & rng2 — using the Intersect method, set the background color to red, of range B5:C7 (refer Image 6b):

If Intersect(rng1, rng2) Is Nothing Then

MsgBox «Ranges do not intersect»

Else

Intersect(rng1, rng2).Interior.Color = vbRed

End If

‘—————-

‘(3) cells in rng1 but not in rng2 ie. exclude intersect range from rng1 — set the background color to red (refer Image 6c):
count = 0

‘check each cell of rng1, and exclude it from final range if it is a part of the intersect range:

For Each cell In rng1

If Intersect(cell, rng2) Is Nothing Then

count = count + 1

‘determine first cell for the final range:

‘instead of «If count = 1 Then» you can alternatively use: «If rngFinal1 Is Nothing Then»

If count = 1 Then

‘include a single (ie. first) cell in the final range:

Set rngFinal1 = cell

Else

‘set final range as union of further matching cells:

Set rngFinal1 = Union(rngFinal1, cell)

End If

End If

Next
rngFinal1.Interior.Color = vbRed

‘—————-

‘(4) cells not common to both rng1 & rng2 ie. exclude intersect area from their union — set the background color to red (refer Image 6d):
Set rngUnion = Union(rng1, rng2)

‘check if intersect range is not empty:

If Not Intersect(rng1, rng2) Is Nothing Then

Set rngIntersect = Intersect(rng1, rng2)

‘check for each cell in the union of both ranges, whether it is also a part of their intersection:

For Each cell In rngUnion

‘if a cell is not part of the intersection of both ranges, then include in the final range:

If Intersect(cell, rngIntersect) Is Nothing Then

‘the first eligible cell for the final range:

If rngFinal2 Is Nothing Then

Set rngFinal2 = cell

Else

Set rngFinal2 = Union(rngFinal2, cell)

End If

End If

Next

‘apply color to the unuion of both ranges excluding their intersect area:

rngFinal2.Interior.Color = vbRed

‘if intersect range is empty:

Else

‘apply color to the union of both ranges if no intersect area:

rngUnion.Interior.Color = vbRed

End If

End Sub

The Intersect method is commonly used with the Excel built-in Worksheet_Change Event (or with the Worksheet_SelectionChange event). You can auto run a VBA code, when content of a worksheet cell changes, with the Worksheet_Change event. The change event occurs when cells on the worksheet are changed. The Intersect method is used to determine whether the changed range is within or is a part of the defined range in this context. Target is a parameter or variable of data type Range ie. Target is a Range Object. It refers to the changed Range and can consist of one or multiple cells. If Target is in the defined Range, and its value or content changes, it will trigger the vba procedure. If Target is not in the defined Range, nothing will happen in the worksheet. The Intersect method is used to determine whether the Target or changed range lies within (or intersects) with the defined range. Note that Worksheet change procedure is installed with the worksheet ie. it must be placed in the code module of the appropriate Sheet object (in the VBE Code window, select «Worksheet» from the left-side «General» drop-down menu and then select «Change» from the right-side «Declarations» drop-down menu). Refer below examples.

Examples of using Intersect method with the worksheet change or selection change events:

Private Sub Worksheet_Change(ByVal Target As Range)

‘Worksheet change procedure is installed with a worksheet ie. it must be placed in the code module of the appropriate Sheet object
‘using Target parameter and Intersect method, with the Worksheet_Change event

‘NOTE: each of the below codes need to be run individually.

If Not Application.Intersect(Target, Range(«A1,B2,C3,E5:F7»)) Is Nothing Then MsgBox «A1 or B2 or C3 or E5:F7»

End Sub

If Intersect(Target, Range(«C1:C10»)) Is Nothing Or Target.Cells.count > 1 Then

Exit Sub

Else

MsgBox «Single cell — C1:C10»

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘example of using Intersect method for worksheet selection change event

‘convert cell text to lower case, except for excluded range

If Not IsNumeric(Target) Then

Target.Value = LCase(Target.Value)

End If

End Sub

Resize a Range

Use the Range.Resize Property to resize a range (to reduce or extend a range), with the new resized range being returned as a Range object. Syntax: RangeObject.Resize(RowSize, ColumnSize). The arguments of RowSize & ColumnSize specify the number of rows or columns for the new resized range, wherein both are optional and omitting any will retain the same number. Example: Range B2:C3 comprising 2 rows & 2 columns is resized to 3 rows and 4 columns (range B2:E4), with background color set to red:- Range(«B2:C3»).Resize(3, 4).Interior.Color = vbRed.

Example 11: Resize a range.

Sub RangeResize1()
‘resize a range

Selection.Resize(Selection.Rows.count — 1, Selection.Columns.count + 2).Select

End Sub

Example 12: Resize a named range.

Sub RangeResize2()
‘resize a named range

Dim rng As Range

rng.Resize(rng.Rows.count — 1, rng.Columns.count + 2).Name = «NamedRange»

End Sub

Example 13a: Using Offset & Resize properties of the Range object, to form a pyramid of numbers — Refer Image 7a.

Sub RangeOffsetResize1()
‘form a pyramid of numbers, using Offset & Resize properties of the Range object — refer Image 7a.

For i = 1 To 7

‘range will offset by one row here to enter the incremented number represented by i — see below comment:

Set rng = rng.Offset(count — i, 0).Resize(, i)

rng.Value = i

‘note that 2 is added to i here and i is incremented by 1 after the loop, thus ensuring that range will offset by one row and the incremented number represented by i will be entered in the succeeding row:

count = i + 2

Next

End Sub

Example 13b: Using Offset & Resize properties of the Range object, enter strings in consecutive rows — Refer Image 7b.

Sub RangeOffsetResize2()
‘enter string in consecutive rows and each letter of the string in a distinct cell of each row — refer Image 7b.

Dim rng As Range

‘the input box will accept values thrice, enter the text strings: ROBERT, JIM BROWN & TRACY:

For i = 1 To 3

str = InputBox(«Enter Text»)

iLen = Len(str)

Set rng = rng.Offset(count — i).Resize(iLen)

count = i + 2

For n = 1 To iLen

rng.Cells(1, n).Value = Mid(str, n, 1)

Next

Next

End Sub

Example 13c: Using Offset & Resize properties of the Range object, form a triangle of consecutive odd numbers — Refer Image 7c.

Sub RangeOffsetResize3()
‘form a triangle of consecutive odd numbers starting from 1, using Offset & Resize properties of the Range object — refer Image 7c.
‘this will enter odd numbers, starting from 1, in each successive row in the shape of a triangle, where the number of times each number appears corresponds to its value — you can set any odd value for the upper number.

‘the upper number should be an odd number:

If lLastNumber Mod 2 = 0 Then

MsgBox «Error — Enter odd value for last number!»

Exit Sub

End If

‘loop to enter odd numbers in each row wherein the number of entries in a row corresponds to the value of the number entered:

For i = 1 To lLastNumber Step 2

‘offset & resize each row per the corresponding value of the number:

Set rng = rng.Offset(count1 — i, count2 — i).Resize(, i)

rng.Value = i

count1 = i + 3

count2 = i + 1

Next

End Sub

Example 13d: Using Offset & Resize properties of the Range object, form a Rhombus (4 equal sides) of consecutive odd numbers — Refer Image 7d.

Sub RangeOffsetResize4()
‘form a Rhombus (4 equal sides) of consecutive odd numbers, using Offset & Resize properties of the Range object — refer Image 7d.
‘this procedure will enter odd numbers consecutively (from 1 to last/upper number) in each successive row forming a pattern, where the number of times each number appears corresponds to its value — first row will contain 1, incrementing in succeeding rows till the upper number and then taper or decrement back to 1.
‘ensure that both the start number & upper number are positive odd numbers.

Dim lLastNumber As Long
Dim i As Long, c As Long, count1 As Long, count2 As Long, colTopRow As Long
Dim rng As Range
Dim ws As Worksheet

‘the upper number should be an odd number:

If lLastNumber Mod 2 = 0 Then

MsgBox «Error — Enter odd value for last number!»

Exit Sub

End If

‘loop to enter odd numbers (start number to last number) in each row wherein the number of entries in a row corresponds to the value of the number entered:

For i = 1 To lLastNumber Step 2

‘offset & resize each row per the corresponding value of the number:

Set rng = rng.Offset(count1 — i, count2 — i).Resize(, i)

rng.Value = i

rng.Interior.Color = vbYellow

count1 = i + 3

count2 = i + 1

Next

‘———————-
‘set range from where to offset, when numbers are decreasing:
Set rng = ws.Cells(1, 1)
count1 = colTopRow + 1
count2 = 2
c = 1

‘loop to enter odd numbers (decreasing to start number) in each row wherein the number of entries in a row corresponds to the value of the number entered:

For i = lLastNumber — 2 To 1 Step -2

‘offset & resize each row per the corresponding value of the number:

Set rng = rng.Offset(count1 — c, count2 — c).Resize(, i)

rng.Value = i

rng.Interior.Color = vbYellow

count1 = c + 3

count2 = c + 3

c = c + 2

Next

‘———————-
‘autofit column width with numbers:

ws.Columns.AutoFit

End Sub

Example 13e: Using Offset & Resize properties of the Range object, form a Rhombus (4 equal sides) or a Hexagon (6-sides) of consecutive odd numbers — input of dynamic values for the start number, last number, first row position & first column position. Refer Image 7e.

For live code of this example, click to download excel file.

Sub RangeOffsetResize5()
‘form a Rhombus (4 equal sides) or a Hexagon (6-sides) of consecutive odd numbers, using Offset & Resize properties of the Range object — refer Image 7e.
‘this procedure will enter odd numbers consecutively (from start/lower number to last/upper number) in each successive row forming a pattern, where the number of times each number appears corresponds to its value — first row will contain the start number, incrementing in succeeding rows till the upper number and then taper or decrement back to the start number.
‘if the start number is 1, the pattern will be in the shape of a Rhombus, and for any other start number the pattern will be in the shape of a Hexagon.
‘this code enables input of dynamic values for the start number, last number, first row position & first column position, for the Rhombus/Hexagon.
‘ensure that both the start number & upper number are positive odd numbers.
‘the image shows the Hexagon per the following values: first number as 3, last number as 15, first row as 4, first column as 2.

Dim vStartNumber As Variant, vLastNumber As Variant, vRow As Variant, vCol As Variant
Dim i As Long, r As Long, c As Long, count1 As Long, count2 As Long, colTopRow As Long
Dim rng As Range
Dim ws As Worksheet
Dim InBxloop As Boolean

Do

‘InBxloop variable has been used to keep the input box displayed, to loop till a valid value is entered:

InBxloop = True

‘enter an odd value for start/lower number:

vStartNumber = InputBox(«Enter start number — should be an odd number!»)

‘if cancel button is clicked, then exit procedure:

If StrPtr(vStartNumber) = 0 Then

Exit Sub

ElseIf IsNumeric(vStartNumber) = False Then

MsgBox «Mandatory to enter a number!»

InBxloop = False

ElseIf vStartNumber <= 0 Or vStartNumber Mod 2 = 0 Then

MsgBox «Must be a positive odd number!»

InBxloop = False

End If

Loop Until InBxloop = True

Do

InBxloop = True

‘enter an odd value for last/upper number:

vLastNumber = InputBox(«Enter last number — should be an odd number!»)

‘if cancel button is clicked, then exit procedure:

If StrPtr(vLastNumber) = 0 Then

Exit Sub

ElseIf IsNumeric(vLastNumber) = False Then

MsgBox «Mandatory to enter a number!»

InBxloop = False

ElseIf vLastNumber <= 0 Or vLastNumber Mod 2 = 0 Then

MsgBox «Must be a positive odd number!»

InBxloop = False

ElseIf Val(vLastNumber) <= Val(vStartNumber) Then

MsgBox «Error — the last number should be greater than the start number!»

InBxloop = False

End If

Loop Until InBxloop = True

Do

InBxloop = True

‘determine row number from where to start — this will be the top edge of the pattern:

vRow = InputBox(«Enter first row number, from where to start!»)

‘if cancel button is clicked, then exit procedure:

If StrPtr(vRow) = 0 Then

Exit Sub

ElseIf IsNumeric(vRow) = False Then

MsgBox «Mandatory to enter a number!»

InBxloop = False

ElseIf vRow <= 0 Then

MsgBox «Must be a positive number!»

InBxloop = False

End If

Loop Until InBxloop = True

Do

InBxloop = True

‘determine column number from where to start — this will be the left edge of the pattern:

vCol = InputBox(«Enter first column number, from where to start!»)

‘if cancel button is clicked, then exit procedure:

If StrPtr(vCol) = 0 Then

Exit Sub

ElseIf IsNumeric(vCol) = False Then

MsgBox «Mandatory to enter a number!»

InBxloop = False

ElseIf vCol <= 0 Then

MsgBox «Must be a positive number!»

InBxloop = False

End If

Loop Until InBxloop = True

‘loop to enter odd numbers (start number to last number) in each row wherein the number of entries in a row corresponds to the value of the number entered:

For i = vStartNumber To vLastNumber Step 2

‘offset & resize each row per the correspponding value of the number:

Set rng = rng.Offset(count1 — i, count2 — i).Resize(, i)

rng.Value = i

rng.Interior.Color = vbYellow

count1 = i + 3

count2 = i + 1

Next

‘———————-
‘set range from where to offset, when numbers are decreasing:
Set rng = ws.Cells(vRow, 1 + vCol)
count1 = colTopRow + 1
count2 = 1
r = vStartNumber
c = 1

‘loop to enter odd numbers (decreasing to start number) in each row wherein the number of entries in a row corresponds to the value of the number entered:

For i = vLastNumber — 2 To vStartNumber Step -2

‘offset & resize each row per the correspponding value of the number:

Set rng = rng.Offset(count1 — r, count2 — c).Resize(, i)

rng.Value = i

rng.Interior.Color = vbYellow

count1 = r + 3

count2 = c + 3

c = c + 2

r = r + 2

Next

‘———————-
‘autofit column width with numbers:

ws.UsedRange.Columns.AutoFit

End Sub

Referencing — Contiguous Block(s) of Cells, Range of Contiguous Data, Cells Meeting a Specified Criteria, Used Range, Cell at the End of a Block / Region, Last Used Row or Column

Using the Areas Property

A selection may comprise of a single or multiple contiguous blocks of cells. The Areas collection refers to the contiguous blocks of cells within a selection, each contiguous block being a distinct Range object. The Areas collection has individual Range objects as its members with there being no distinct Area object. The Areas collection may also contain a single Range object comprising the selection, meaning that the selection contains only one area.

Use the Range.Areas Property (Syntax: RangeObject.Areas) to return an Areas collection, which for a multiple-area selection contains distinct range objects for each area therein, and for a single selection contains one Range object. Using the Areas property is particularly useful in case of a multiple-area selection which enables working with non-contiguous ranges which are returned as a collection. The Count property is used to determine whether a selection contains multiple areas. In cases where it might not be possible to perform actions simultaneously on multiple areas, or you may want to execute separate commands for each area individually (viz. you can have separate formatting for each area, or you might want to copy-paste an area based on its values), this will enable you to loop through each area individually and perform respective operations.

Example 14: Use the Areas property to apply separate format to each area of a collection of non-contiguous ranges — refer Images 8a & 8b

Sub Areas()
‘formatting a selection comprising a collection of non-contiguous ranges
‘refer Image 8a which shows a collection of non-contiguous ranges, and Image 8b after running below code which formats the cells containing numbers

SpecialCells(xlCellTypeConstants, xlNumbers)
Set rng2 = ThisWorkbook.ActiveSheet.UsedRange.

‘loop through each area in the Areas collection:

For Each area In Selection.Areas

‘set the background color to green for cells containing percentages (note that all cells within the area should have a common number format):

If Right(area.NumberFormat, 1) = «%» Then

area.Interior.Color = vbGreen

Else

‘set the background color to yellow for cells containing numbers (non-percentages):

area.Interior.Color = vbYellow

End If

Next

End Sub

Example 15: Check if ranges are contiguous, return address of each range — using the Union method, the Areas and Address properties.

Sub RangeAreasAddress()
‘using the Union method, the Areas and Address properties — check if ranges are contiguous, return address of each range:

‘check if ranges are contiguous, using the Union method & Areas property:

Set rngUnion = Union(rng1, rng2)

If rngUnion.Areas.count = 1 Then

‘return address of the union of contiguous ranges:

MsgBox «The 2 ranges, rng1 & rng2, are contiguous, their union address: » & rngUnion.Address

Else

MsgBox «The 2 ranges, rng1 & rng2, are NOT contiguous!»

‘return address of each non-contiguous range:

n = 1

For Each rngArea In rngUnion.Areas

MsgBox «Address (absolute, local reference) of range » & n & » is: » & rngArea.Address

MsgBox «Address (external reference) of range » & n & » is: » & rngArea.Address(0, 0, , True)

MsgBox «Address (including sheet name) of range » & n & » is: » & rngArea.Parent.Name & «!» & rngArea.Address(0, 0)

n = n + 1

Next

End If

End Sub

CurrentRegion Property

For referring to a range of contiguous data, which is bound by a blank row and a blank column, use the Range.CurrentRegion Property. Syntax: RangeObject.CurrentRegion. Using the Current Region is particularly useful to include a dynamic range of contiguous data around an active cell, and perform an action to the Range Object returned by the property, viz. use the AutoFormat Method on a table.

Example 16: Using CurrentRegion, Offset & Resize properties of the Range object — Refer Images 9a, 9b & 9c.

Sub CurrentRegion()
‘using CurrentRegion, Offset & Resize properties of the Range object — refer Images 9a, 9b & 9c.

Selection.Font.Bold = True

End Sub

Range.SpecialCells Method

For referring to cells meeting a specified criteria, use the Range.SpecialCells Method. Syntax: RangeObject.SpecialCells(Type, Value). The Type argument specifies the Type of cells as per the XlCellType constants, to be returned. It is mandatory to specify this argument. The Value argument is optional, and it specifies values (more than one value can be also specified by adding them) as per the XlSpecialCellsValue constants, in case xlCellTypeConstants or xlCellTypeFormulas is specified in the Type argument. Not specifying the Value argument will default to include all values of Constants or Formulas in case of xlCellTypeConstants or xlCellTypeFormulas respectively. Using this method will return a Range object, comprising of cells matching the Type & Value arguments specified.

XlCellType constants: xlCellTypeAllFormatConditions (value -4172, refers to all cells with conditional formatting); xlCellTypeAllValidation (value -4174, refers to cells containing a validation); xlCellTypeBlanks (value 4, refers to blank or empty cells); xlCellTypeComments (value -4144, refers to cells with comments); xlCellTypeConstants (value 2, refers to cells containing constants); xlCellTypeFormulas (value -4123, refers to cells with formulas); xlCellTypeLastCell (value 11, refers to the last cell in the used range); xlCellTypeSameFormatConditions (value -4173, refers to cells with same format); xlCellTypeSameValidation (value -4175, refers to cells with same validation); xlCellTypeVisible (value 12, refers to all cells which are visible).

XlSpecialCellsValue constants: xlErrors (value 16); xlLogical (value 4); xlNumbers (value 1); xlTextValues (value 2).

Examples of using Range.SpecialCells Method:

Set background color for:-

cells containing constants, but numbers only:

Worksheets(«Sheet1»).

Cells.SpecialCells(xlCellTypeConstants, xlNumbers).Interior.Color = vbBlue

cells containing constants, for numbers & text values only:

Worksheets(«Sheet1»).Cells.

SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues).Interior.Color = vbGreen

cells containing all constants:

Worksheets(«Sheet1»).Cells.

SpecialCells(xlCellTypeConstants).Interior.Color = vbRed

cells containing formulas, but numbers only:

Worksheets(«Sheet1»).Cells.

SpecialCells(xlCellTypeFormulas, xlNumbers).Interior.Color = vbMagenta

cells containing formulas, but error only:

Worksheets(«Sheet1»).Cells.

SpecialCells(xlCellTypeFormulas, xlErrors).Interior.Color = vbCyan

cells with conditional formatting:

Worksheets(«Sheet1»).Cells.

SpecialCells(xlCellTypeAllFormatConditions).

Interior.Color = vbYellow

Example 17: Use the SpecialCells Method instead of Offset & Resize properties to perform the same action as in Example 16 — Refer Images 9a, 9b & 9c:

Sub CurrentRegionSpecialCells()
‘using CurrentRegion property and the SpecialCells Method of the Range object — refer Images 9a, 9b & 9c.

Selection.Font.Bold = True

End Sub

UsedRange property

To return the used range in a worksheet, use the Worksheet.UsedRange Property. Syntax: WorksheetObject.UsedRange.

Using the UsedRange property may also count formatted cells with no data, and in this case might include seemingly visible blank cells. For example, if you apply Date format to a cell, in this case clearing the content/format might not be enough to re-set, you will have to delete the particular row. Refer below example, which illustrates this.

Example 18: UsedRange property — Refer Images 10a & 10b.

Sub UsedRangeProperty()
‘refer Image 10a, wherein the used range B3:E6 is selected; refer Image 10b, wherein the used range B3:E8 is selected, because cells B7:E8 contain formatting (date format).

Dim ws As Worksheet

ActiveSheet.UsedRange.Select

End Sub

We have earlier discussed that End(xlUp) is a commonly used method to determine the last used row or column, with data. To find the last used row number in a worksheet, we can use the UsedRange property, SpecialCells method (using xlCellTypeLastCell constant) or the Find method. With the help of examples, we illustrate their use below.

Example 19: UsedRange property to find the last / first used row number in a worksheet.

Sub LastRowNumberUsedRange()
‘UsedRange property to find the last / first used row number in a worksheet.

UsedRange.Rows.count).Row
‘alternatively:
lastRow = ActiveSheet.UsedRange.Row — 1 + ActiveSheet.UsedRange.Rows.count

MsgBox lastRow

End Sub

Example 20: SpecialCells method to find Last Used Row in worksheet.

Sub LastRowNumberSpecialCells()
‘SpecialCells method to find Last Used Row in worksheet.

SpecialCells(xlCellTypeLastCell).Row

MsgBox lastRow

End Sub

Example 21: Find method to find Last Used Row in worksheet.

Sub LastRowNumberFindMethod()
‘Find method to find the last used row number in a worksheet.

MsgBox lastRow

End Sub

Running the above three codes on Image 10b to find the last used row number in a worksheet: using the UsedRange property will return 8 and using the SpecialCells method (using xlCellTypeLastCell constant) will also return 8 because because cells B7:E8 contain formatting (date format), whereas using the Find method will return 6 because the formatted cells are not counted by this method.

Refer to Cell at the End of a Block or Region, Find the Last Used Row or Column

Range.End Property: In VBA you will often need to refer to a cell at the end of a block, for example, to determine the last used row in a range. The End property is used with reference to a Range object and returns the cell which is at the end of the region in which the the referenced range is contained. The property returns a Range object, which is the cell at the end of the block in a specified direction, and is similar to pressing CTRL+UP ARROW, CTRL+DOWN ARROW, CTRL+LEFT ARROW or CTRL+RIGHT ARROW. Syntax: RangeObject.End(Direction). It is necessary to specify the Direction argument, which indicates the direction of movement viz. xlDown (value -4121), xlToLeft (-4159), xlToRight (-4161) and xlUp (-4162).

Example 22: Using End Property — refer Image 11.

Sub EndProperty()
‘using the End property — refer Image 11.

Range(«C5», Range(«C5»).End(xlDown)).Select

End Sub

End(xlUp) is a commonly used method to determine the last used row or column, with data. End(xlDown) gets the last cell before blank in a column, whereas End(xlToRight) gets the last cell before blank in a row.

Example 23: Using the End property to determine the last used row or column, with data — refer Image 11.

Sub EndPropertyLastUsedRow()
‘using the End property to determine the last used row or column, with data — refer Image 11.

MsgBox lColumn

End Sub