Excelのこととか色々

マクロをどんな Excel ファイルにも実行できるように設定して、3秒かかる操作も1秒で完了。あといろいろ書いてみます・・・

【VBAスタンダードに挑戦!】オートフィルタ絞り込み後操作(Copy/CurrentRegion)

【VBAスタンダードに挑戦!】

f:id:tuna-kichi:20200614200940p:plain

 

本日の5分勉強の内容

 

 

********************************************************

 CurrentRegion

・指定したセルを含む ひとかたまりの範囲を指定する

・セル. CurrentRegion

※Current・・・現在、流れ

 Region・・・地域、領域
  

f:id:tuna-kichi:20200817082245p:plain


・ID列を「B」でフィルタリングして、結果を隣のシート「Sheet2」に貼り付ける

 

Sub オートフィルタ赤枠()
 Range("A1").AutoFilter Field:=1, Criteria1:="B"

 '赤枠の範囲が関連する範囲と判断され、その範囲をコピーし、
 Sheet2 のRange("A1")に貼り付ける

 Range("A1").CurrentRegion.Copy Sheets("Sheet2").Range("A1")

 

End Sub

                      

f:id:tuna-kichi:20200817082930p:plain

Sub オートフィルタ青枠()
 Range("A1").AutoFilter Field:=1, Criteria1:="B"

 

 'Offsetを利用して、項目名を含まない範囲を指定する
 Range("A1").CurrentRegion.Offset(1).Copy Sheets("Sheet2").Range("D1")

  

End Sub

                      

CurrentRegion は、一回目の Ctrl + A を押したときと同じ動作ですね。

 

私が扱ってきた資料では、データの入っていない空欄セルや列が邪魔をして、

CurrentRegion では、期待した範囲を選択してくれないので避けてきました。

 

なかなか使用場所が見つからない・・・

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

にほんブログ村 子育てブログ 幼稚園児育児へ
にほんブログ村
にほんブログ村 英語ブログ 初心者英語へ
にほんブログ村
にほんブログ村 IT技術ブログ VBAへ
にほんブログ村

==================================

  Graspyで無料プログラミング講座を受講する