Microsoft Office

VBA Examples 44
FIGURE 44.1
This range can consist of any number of rows.
The macro that follows demonstrates how to copy this range from Sheet1 to Sheet2 (beginning at cell A1).
It uses the CurrentRegion property, which returns a Range object that corresponds to the block of used
cells surrounding a particular cell. This is equivalent to choosing Home ➪ Editing ➪ Find & Select ➪ Go
To, clicking the Special button, and then selecting the Current Region option.
ON the CD-ROM
Sub CopyCurrentRegion()
Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”)
End Sub
A workbook that contains this macro is available on the companion CD-ROM. The file is
named range copy.xlsm.
Selecting to the end of a row or column
You probably are in the habit of using key combinations, such as pressing Ctrl+Shift+right-arrow key and
Ctrl+Shift+down-arrow key, to select from the active cell to the end of a row or column. When you record
these actions in Excel (using relative recording mode), you’ll find that the resulting code works as you
would expect it to.
The following VBA procedure selects the range that begins at the active cell and extends down to the last
cell in the column (or to the first empty cell, whichever comes first). When the range is selected, you can do
whatever you want with it — copy it, move it, format it, and so on.
Sub SelectDown()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub
Notice that the Range property has two arguments. These arguments represent the upper-left and lowerright
cells in a range.
This example uses the End method of the Range object, which returns a Range object. The End method
takes one argument, which can be any of the following constants: xlUp, xlDown, xlToLeft, or
xlToRight.
759