|
▼ponpon さん:
ありがとうございます。
>>>>Sub TEST()
>>>> With Worksheets("データベース")
>>>> .Range("A1").AutoFilter Field:=6, Criteria1:="外来"
>>>> With .AutoFilter.Range
>>>> .Columns(2).Offset(1).Resize(.Rows.Count - 1) _
>>>> .SpecialCells(xlCellTypeVisible).Copy _
>>>> Worksheets("抽出外来").Range("A1")
>>>> End With
>>>> .AutoFilterMode = False
>>>> End With
>>>>End Sub
>>>
>>上記のコードを、Criteria1:="外来"をCriteria1:="入院"にしたら、入院のみの氏名のみ抽出できました。
>
>>>>Sub TEST2()
>>>> Worksheets("抽出外来").Cells.ClearContents
>>>> With Worksheets("データベース")
>>>> .AutoFilterMode = False
>>>> .Range("A1").AutoFilter Field:=6, Criteria1:="外来"
>>>> With .AutoFilter.Range ' 此処にブレークポイントでフィルターの
>>>> ' 結果を見てください。
>
> ここで、「外来」だけが抽出されてますか?
ですが、With .AutoFilter.Rangeの部分で、
「実行時エラー"1004" アプリケーション定義またはオブジェクト定義のエラーです」となりました。
|
|