ExcelマクロVBA オートフィルタで抽出したデータを別シートへ転記
このマクロもよく使うので忘備録!!
マクロVBAは英数字が並んで難しく感じますが
簡単な処理の単語?的なものが組み合わさって
色々な処理ができるのがおもしろい!!
Sub 抽出転記()
Worksheets("データ").Range("A:C").AutoFilter 1, "<>解約"
MsgBox "オートフィルターを設定し解約以外を抽出。"
👆はデータという名前のシートのAからC列をオートフィルタ設定をして、フィールド1=1列目の”解約”以外を抽出する
その後、メッセージボックスでどんな処理をされたか知らせる
Worksheets("データ").Range("A1").CurrentRegion.Copy Worksheets("抽出").Range("A1")
MsgBox "転記終了。"
👆はデータという名前のシートのA1セルが含まれる表をコピーして抽出という名のシートのA1へコピーする
その後、メッセージボックスで転記が終了したことを知らせる
End Sub
このマクロを入力して▶した時
めちゃくちゃ嬉しかったです( ´∀` )
沢山覚えるぞ――――――――