便利なExcelの機能を自動化
Excel作業のあるあるとして、行内の特定文字、数字等でデータを抽出し、そのデータをグループ化したり、削除したり、何等かの処理を行いたい場面がよくあると思います。
そんな時、一点一点データを探して処理をしていると面談、間違え、時間がかかるといった問題が起こります。
そんな時、活躍するのが【オートフィルタ】
そのオートフィルタを用いて作業を行う事が、あると思いますが、今回は、そんなオートフィルタを用いて、その後の処理を自動化してみます。
処理の順番
１ 指定のシート
２ 検索範囲を選択
３ 検索条件
４ 指定の範囲でオートフィルタON 検索対象行を検索条件にて検索
５ コピー
この様な流れのサンプルを共有させて頂きます。↓
コード
‘１指定のシート
Worksheets(“〇”).Select
‘2 検索範囲を選択
Range(“B6:Q100”).Select
‘3検索条件
Dim Target(0) As String
Target(0) = “〇〇”
‘4指定の範囲でオートフィルタON 検索対象行を検索条件にて検索
Range(“B6”).AutoFilter Field:=1, _
Criteria1:=Target, _
Operator:=xlFilterValues
’5コピー
Selection.Copy
Excelの便利な機能を更に便利にするVBAでした。