|
始めまして。
やりたいことは、複数の条件を指定して、別シートに抽出したいです。
自分なりにフィルタを使用して作成してみたのですが、
もう少し簡単にできないでしょうか?
Sub Macro11()
Range("B9:H800").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"B1:F2"), CopyToRange:=Range("O1"), Unique:=False
Columns("O:U").Select
Selection.Cut
Sheets("Sheet1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("リスト").Select
Selection.Cut
Sheets("Sheet1").Select
ActiveSheet.Paste
Sheets("リスト").Select
Range("B2").Select
Sheets("Sheet1").Select
Range("A2").Select
End Sub
宜しくお願いします。
|
|