|
▼Yuki さん:
▼Regina さん:
>おかしいですね。
どちらのコードでもそのまま貼り付けて、
きちんと抽出されていますよ。
Worksheets("データベース")のレイアウトが違っているのかな?
>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
>
>Sub TEST2()
> Worksheets("抽出外来").Cells.ClearContents
> With Worksheets("データベース")
> .AutoFilterMode = False
> .Range("A1").AutoFilter Field:=6, Criteria1:="外来"
> With .AutoFilter.Range ' 此処にブレークポイントでフィルターの
> ' 結果を見てください。
> .SpecialCells(xlCellTypeVisible).Copy _
> Worksheets("抽出外来").Range("A1")
> End With
> .AutoFilterMode = False
> End With
>End Sub
|
|