Consolidate Method [Excel 2003 VBA Language Reference]

Consolidates data from multiple ranges on multiple worksheets into a single range on a single worksheet. Variant.

expression.Consolidate(Sources, Function, TopRow, LeftColumn, CreateLinks)

expression Required. An expression that returns one of the objects in the Applies To list.

Sources  Optional Variant. The sources of the consolidation as an array of text reference strings in R1C1-style notation. The references must include the full path of sheets to be consolidated.

XlConsolidationFunction

XlConsilidationFunction can be one of these XlConsilidationFunction constants.
xlAveragedefault.
xlCount
xlCountNums

xlMax

xlMin

xlProduct

xlStDev

xlStDevP

xlSum

xlVar

xlVarP

TopRow  Optional Variant. True to consolidate data based on column titles in the top row of the consolidation ranges. False to consolidate data by position. The default value is False.

LeftColumn  Optional Variant. True to consolidate data based on row titles in the left column of the consolidation ranges. False to consolidate data by position. The default value is False.

CreateLinks  Optional Variant. True to have the consolidation use worksheet links. False to have the consolidation copy the data. The default value is False.

Example

This example consolidates data from Sheet2 and Sheet3 onto Sheet1, using the SUM function.

Worksheets("Sheet1").Range("A1").Consolidate _
    Sources:=Array("Sheet2!R1C1:R37C6", "Sheet3!R1C1:R37C6"), _
    Function:=xlSum

Applies to | Range Collection

See Also | ConsolidationFunction Property | ConsolidationOptions Property | ConsolidationSources Property | Style Property