1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. データの抽出（オートフィルタ・フィルタオプション）

データの抽出（オートフィルタ・フィルタオプション）:Excel VBA入門

2022/2/1

オートフィルタでデータを抽出する

• A1:E20の住所録からF3セルで選択した「男/女」のデータをH1に抽出します。
  
• 【コードの例】
  

  Sub Macro1() 　Dim myRow As Long 　Dim mySh As Worksheet 　Set mySh = Worksheets("Sheet1") 　'画面の更新を停止 　Application.ScreenUpdating = False 　'抽出先の範囲をクリアする 　mySh.Range("H:L").Clear 　'データ範囲の最終行を求める 　myRow = mySh.Cells(Rows.Count, 1).End(xlUp).Row 　'データ範囲にオートフィルターを掛ける 　　With mySh.Range(Cells(1, 1), Cells(myRow, 5)) 　　　　.AutoFilter field:=5, Criteria1:=Range("F3").Value 　　　　.SpecialCells(xlCellTypeVisible).Copy mySh.Range("H1") 　　　　.AutoFilter 　　End With 　'画面の更新を再開 　Application.ScreenUpdating = True End Sub

フィルタオプション(詳細設定)でデータを抽出する　　　topへ

• A1:E20の住所録からF3セルで選択した「男/女」のデータをH1に抽出します。
  オートフィルタと異なるのはF2セルに抽出条件の項目名「性別」が入力されています。
  
• 【コード例】
  

  Sub Macro2() 　Dim myRow As Long 　Dim mySh As Worksheet 　Set mySh = Worksheets("Sheet1") 　'画面の更新を停止 　Application.ScreenUpdating = False 　'抽出先の範囲をクリアする 　mySh.Range("H:L").Clear 　'データ範囲の最終行を求める 　myRow = mySh.Cells(Rows.Count, 1).End(xlUp).Row 　'データ範囲から詳細設定でデータを抽出する 　　With mySh.Range(Cells(1, 1), Cells(myRow, 5)) 　　　　.AdvancedFilter Action:=xlFilterCopy, _ 　　　　CriteriaRange:=Range("F2:F3"), _ 　　　　CopyToRange:=Range("H1"), Unique:=False 　　End With 　'画面の更新を再開 　Application.ScreenUpdating = True End Sub

スポンサードリンク

PageViewCounter
　
　Since2006/2/27