' [170.xls]





' [Module1] のコード
'★★☆　オートフィルタした結果データをコピーする　☆★★

Option Explicit

Sub start()
Dim cl As Object
Dim myrange As Range

    'オートフィルタの結果データを変数に格納
    Set myrange = Range("B6:F" & [B16].End(xlUp).Row) _
                    .SpecialCells(xlCellTypeVisible)
    
    '既にデータがコピーされてあれば消去
    [B16].CurrentRegion.ClearContents
    
    '変数に格納されてあるデータを指定セルにコピー
    myrange.Copy Destination:=ActiveSheet.[B16]
    
End Sub

Sub start_A()

    Sheets("作業シート").Visible = -1
    Sheets("Title").Visible = 2

End Sub

Sub start_B()

    Sheets("Title").Visible = -1
    Sheets("作業シート").Visible = 2
    
End Sub