Home > Articles > Home & Office Computing > Microsoft Applications

This chapter is from the book

This chapter is from the book

Use the Areas Collection to Return a Noncontiguous Range

The Areas collection is a collection of noncontiguous ranges within a selection. It consists of individual Range objects representing contiguous ranges of cells within the selection. If the selection contains only one area, the Areas collection contains a single Range object corresponding to that selection.

You might be tempted to loop through the rows in a sheet and check the properties of a cell in a row, such as its formatting (for example, font or fill) or whether the cell contains a formula or value. Then, you could copy the row and paste it to another section. However, there is an easier way. In Figure 3.10, the user enters the values below each fruit and vegetable. The percentages are formulas. The following code selects the cells with numerical constants and copies them to another area:

Range("A:D").SpecialCells(xlCellTypeConstants, xlNumbers).Copy Range("I1")
Set NewDestination = Range("I1")
For each Rng in Cells.SpecialCells(xlCellTypeConstants, xlNumbers).Areas
   Rng.Copy Destination:=NewDestinations
   Set NewDestination = NewDestination.Offset(Rng.Rows.Count)
Next Rng
Figure 3.10

Figure 3.10. The Areas collection makes it easier to manipulate noncontiguous ranges.

  • + Share This
  • 🔖 Save To Your Account