|
▼kanabun さん:
> データ > フィルタオプションの設定(AdvancedFilter)
>の機能を利用すると思いますが?
AdvancedFilter 利用のご提案有難うございました。
初めて目にするフィルタオプションですので早速コードを作ってみました。
データの少ないサンプルでコードを作り動かしてみたら問題がなかったので、現在使っているファイルに利用したところ、項目だけが横に並ぶのですがデータが抽出されてきません。いろいろいじったのですが原因が掴めません。アドバイスをお願いいたします。
Sub ADF抽出()
Dim MaxRows As Long
Dim y As Integer
Worksheets("CD目録").Range("T1").Value = "種別"
Worksheets("CD目録").Range("T2").Value = "交響曲"
Worksheets("CD目録").Range("U1").Value = "作曲者名"
Worksheets("CD目録").Range("U2").Value = "ハイドン"
MaxRows = Sheets("CD目録").UsedRange.Rows.Count
y = MaxRows
Worksheets("仮抽出").Range("A:E").Clear
Union(Range("E2:H2"), Range("K2")).Select
Application.CutCopyMode = xlCut
Selection.Copy
Sheets("仮抽出").Select
Range("A1").Select
ActiveSheet.Paste
Worksheets("CD目録").Range("C2:K" & y).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("CD目録").Range("T1:U2"), _
CopyToRange:=Worksheets("仮抽出").Range("A1:E1"), _
Unique:=False
End Sub
無理な注文なのかコードに間違いがあるのか分かりません。
よろしくご指導のほどお願いします。
|
|