hapihapi life

【離婚・低収入シングルマザー・難病指定の病気発覚】でも幸せ♪

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

 

このマクロを入力して▶した時

めちゃくちゃ嬉しかったです( ´∀` )

 

沢山覚えるぞ――――――――

 

 

にほんブログ村 その他日記ブログ シングルマザー日記へ
にほんブログ村

 

 

❤️楽天 my room❤️