• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Excel2007 マクロ 表の値の抽出)

Excel2007のマクロで表の値の抽出方法とサンプル

このQ&Aのポイント
  • Excel2007のマクロを使用して表の値を抽出する方法やサンプルについて説明します。
  • 外国産、国産、その他のいずれかの列に数値が入っている行をコピーして別のシートに貼り付けるマクロの作成方法を解説します。
  • マクロを使ったデータの抽出方法や基本的なマクロの作成手順について説明します。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.1

sub macro1() worksheets("Sheet1").usedrange.copy destination:=worksheets("Sheet2").range("A1") '判りやすいように。通常はこういう風にしない worksheets("Sheet2").select range("A:E").autofilter field:=2, criteria1:="<>" range("A:E").autofilter field:=3, criteria1:="=" range("A:E").autofilter field:=4, criteria1:="=" range("A:E").autofilter field:=5, criteria1:="=" worksheets("Sheet2").autofilter.range.offset(1).delete shift:=xlshiftup worksheets("Sheet2").autofiltermode = false end sub

hyogara777
質問者

お礼

ご回答ありがとうございました。一文一文確認して、勉強します。本当に助かります。