過去ログ

                                Page     592
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼抽出方法  ワトソン 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
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 592