Page 592 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ INDEX ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼抽出方法 ワトソン 03/1/23(木) 0:48 ┗Re:抽出方法 ポンタ 03/1/23(木) 2:08 ─────────────────────────────────────── ■題名 : 抽出方法 ■名前 : ワトソン ■日付 : 03/1/23(木) 0:48 -------------------------------------------------------------------------
オートフィルターを使用して、データを抽出し 抽出されたデータのみ(タイトル行をはじいて)をすべて選択し そのデータをコピーして違うワークシートのA1から順に貼り付ける というマクロを作成するにはどうしたらいいんでしょうか? お分かりの方、教えてください。 |
サンプルコードです。 以下のコードを標準モジュールに貼り付け、 抽出したいシートをアクティブにして、 お試しください。 Sub test() Dim MyRange As Range Dim Ws As Worksheet Set Ws = Sheet2 With Application .ScreenUpdating = False Set MyRange = Range("A1", Range("A65536").End(xlUp)) Call MyRange.AutoFilter(1, "Test") Ws.Cells.ClearContents If MyRange.SpecialCells(xlCellTypeVisible).Count <> 1 Then Set MyRange = Range("A2", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow Call MyRange.Copy(Ws.Range("A1")) End If ActiveSheet.AutoFilterMode = False End With End Sub |