過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     592
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼抽出方法  ワトソン 03/1/23(木) 0:48
　　　┗Re:抽出方法  ポンタ 03/1/23(木) 2:08

　───────────────────────────────────────
　■題名 ： 抽出方法
　■名前 ： ワトソン
　■日付 ： 03/1/23(木) 0:48
　-------------------------------------------------------------------------
   
オートフィルターを使用して、データを抽出し

抽出されたデータのみ（タイトル行をはじいて）をすべて選択し

そのデータをコピーして違うワークシートのA1から順に貼り付ける

というマクロを作成するにはどうしたらいいんでしょうか？

お分かりの方、教えてください。


　───────────────────────────────────────
　■題名 ： Re:抽出方法
　■名前 ： ポンタ
　■日付 ： 03/1/23(木) 2:08
　-------------------------------------------------------------------------
   
サンプルコードです。



以下のコードを標準モジュールに貼り付け、

抽出したいシートをアクティブにして、

お試しください。



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

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     592