VBA テーブル（ListObjects）フィルターしたデータを別シートへコピペ

フィルターしたデータを別シートへコピペ

Sub test()
   ’　 フィルターしたデータを別シートへコピペ(見出し無し）

    Dim myR As Long
    
    myR = 2　　’　貼り付け先行番

    With Sheets(1).Range("A2").ListObject
            .Range.AutoFilter 2, "青"
            .ListColumns(1).DataBodyRange.Copy
                Sheets(2).Range("A" & myR).PasteSpecial (xlPasteValues)
    
            .ListColumns(3).DataBodyRange.Copy
                Sheets(2).Range("B" & myR).PasteSpecial (xlPasteValues)
                
            .ListColumns(4).DataBodyRange.Copy
                Sheets(2).Range("C" & myR).PasteSpecial (xlPasteValues)
    End With

End Sub

実行結果

Sub test()
   ’　 フィルターしたデータを別シートへコピペ(見出し有り）

    Dim myR As Long
    
    myR = 1　’　貼り付け先行番
        
    With Sheets(1).Range("A2").ListObject
            .Range.AutoFilter 2, "青"
            .ListColumns(1).Range.Copy Sheets(2).Range("E" & myR)
    
            .ListColumns(3).Range.Copy Sheets(2).Range("F" & myR)
                
            .ListColumns(4).Range.Copy Sheets(2).Range("G" & myR)
    End With

End Sub

実行結果

参考記事

『VBA テーブル（ListObjects）の基本操作』

『VBA　テーブル（ListObjects）の設定・解除』

『VBA　テーブル（ListObjects）指定値以上赤文字にする』

『VBA　テーブル（ListObjects）データを追加する』

『VBA　テーブル（ListObjects）のフィルター設定・解除』

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る