■

エクセルの表から条件に合うレコードを抽出する方法
よくやるのだけれども、忘れてしまい何度も調べる。でも、結構見つからない。
以前会計簿から抽出した方法
AdvancedFilterでやる。
マクロでCtrl+aに登録して、
シートごとに条件を書いて（D1：D2）
("A5:G40")ここに抽出する。

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Sheets("収支一覧").Range("A1:G84").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("D1:D2"), CopyToRange:=Range("A5:G40"), Unique:= _
False
End Sub