More than 3 years have passed since last update.

VBA　エクセル　トップ１０にフィルターをかけて別シートにコピー

Excel
VBA

Posted at 2021-06-17

Sub トップテンを抽出()
    Range("A1").AutoFilter _
    field:=9, Operator:=xlTop10Items
End Sub

Sub データをトップ１０シートにコピーする()
    Range("A1").CurrentRegion.Copy
    Sheets("トップ10").Range("A3"). _
    PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    Application.CutCopyMode = False
    Sheets("トップ10").Activate
    Range("A1").Select
End Sub

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up

VBA エクセル トップ１０にフィルターをかけて別シートにコピー

VBA　エクセル　トップ１０にフィルターをかけて別シートにコピー