オートフィルタ(AutoFilter)でのデータ抽出:Excel VBA入門

オートフィルタ(AutoFilterメソッド)でのデータ抽出 Topへ データリストから必要なデータを表示し、他のデータは非表示にします。 expression.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown) Field 必ず指定します。フィルタの対象となるフィールド番号を整数で指定します。 フィールド番号は、リストの左端列が「1」となります。 Criteria1 省略可能。抽出条件となる文字列 ("101" など) を指定します。 "=" と指定すると、空白セルが抽出されます。 "<>" と指定すると空白以外のフィールドが抽出されます。 この引数を省略すると、抽出条件はALLになります。 引数OperatorにxlTop10Itemsが指定されている場合は、引数Criteria1に項目数を指定します

[kakku22]

.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet2").Range("A1")

[kazajirushi]

フィルタ結果をコピーする方法

[kotesaki]

オートフィルタをオフにする　[ｖｂａ]

[nekorock]

オートフィルタの解除方法についても記載あり。フィルタ結果に対して計算を行う場合はSUM等ではなくSUBTOTAL関数を使う。