• ベストアンサー

ＥＸＣＥＬ　ＶＢＡでオートフィルタ後の最終行を取得したい

いつもお世話になります。 ＷＩＮ９８-ＥＸＣＥＬ２０００での作業です。 ＶＢＡでオートフィルタをかけるところまでは出来たのですが、Ａ列：Ｑ列までの表のうち、Ａ２～Ｋ列の最終行までをコピーしたい場合のコマンドを教えてください。 また、オートフィルタで検索されなかった場合はコピーはしない場合、どうしたらよいのでしょうか？ よろしくお願いします。

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

  • ベストアンサー
  • sakenomo
  • ベストアンサー率52% (35/67)
回答No.1

ご参考にどうぞ。 このマクロでは、データ範囲のすぐ下の行も一緒にコピーされてしまいますが、空白のはずなので問題ないと思います。検索されなかった場合は、上記の空白セルの行がコピーされてしまうわけですが、これも空白なので使用上の問題はないかと思います。 Sub test2() Sheets("Normal").Select Range("A2").AutoFilter Field:=1, Criteria1:=Sheets("読込").Range("B2"), _ Operator:=xlAnd, Criteria2:=Sheets("読込").Range("C2") Sheets("Normal").AutoFilter.Range.Offset(1, 0).Copy Sheets("読込").Select Range("C3").Select ActiveSheet.Paste Sheets("Normal").Select Application.CutCopyMode = False ActiveSheet.ShowAllData Selection.AutoFilter End Sub

nanami0310
質問者

お礼

ありがとうございます。 他の質問の方も見てくださったんですね。とても嬉しいです。 思い通りに動いてくれました。本当にありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • オートフィルタをしても本当の最終行を取得したい

    エクセル２００７のＶＢＡについて教えてください。 Ａ１→目次 Ａ２→あ Ａ３→い Ａ４→う Ａ５→え Ａ６→お オートフィルタで「え」を抽出します。 この状態で Sub test() MsgBox Range("a65536").End(xlUp).Row End Sub を実行すると、５が返ってきますが 実際の最終行は６です。 オートフィルタをしつつ、最終行を取得するには どうすればいいのでしょうか？ ご回答よろしくお願いします。

  • オートフィルタ　最終行を指定する必要は？

    エクセルでＶＢＡでオートフィルタをする場合、 ******************************************* Sub test1() 最終列 = Range("IV1").End(xlToLeft).Column Range(Cells(1, 1), Cells(1, 最終列)).AutoFilter End Sub Sub test2() 最終行 = Range("a65536").End(xlUp).Row 最終列 = Range("IV1").End(xlToLeft).Column Range(Cells(1, 1), Cells(最終行, 最終列)).AutoFilter End Sub ******************************************* どちらでもできるのですが、 test2のように最終行を取得・指定する必要はあるのでしょうか？

  • オートフィルタで抽出したデータの行を削除（VBAで記述）

    Excel2000を利用しています。 VBAで、オートフィルタを利用した作業を記述したいと思っています。 データは一行目にタイトルが入っています。 オートフィルタで抽出したデータを その行まるまる削除したいと思っています。 その時、タイトル行（１行目）を除いて オートフィルタで抽出された行のみ選択して 削除する、という場合、どのように記述すればよいのでしょうか。 自分では全然分からないので 教えてください、よろしくお願い致します。

  • ＥＸＣＥＬのオートフィルタのコピーについて

    ＥＸＣＥＬ２０００を使用しています。 オートフィルターにて抽出し一部をコピーし同じシートの別の列に貼り付けすると 隠れている行にもコピーされ表示されたところだけにコピーされません。 よい方法はありますか？

  • エクセル2007で行にオートフィルタをかけたい

    エクセル2007で行データにオートフィルタをかけたいのですが できません． 範囲をどのように選択してもかならず列データにオートフィルタが かかってしまうのですが どうにかして行データにオートフィルタをかけたいです． どなたかご教授願います

  • VBA 指定の列の最終行を取得

    　Excel VBAについて質問します。すいませんが宜しくお願いします。 画像の様に、A列の最終行とF列の最終行が異なった時に、 A列とF列の位置を、メッセージボックスで表示したいのですが、 例えば、画像で説明しますと、"最終列はA11とF9です" こんな感じで表示されると良いですが、 お手数ですが教えて頂けますか？

  • エクセル2002　オートフィルタのデータ

    データが入力されている表に、オートフィルタを設定しました。 表の枠外（例えば、A１列の一番下にあるとします）で接してる文字列があると、そのA列の頭に設定された、オートフィルタには、その文字列が表示されてしまうのですが、その文字列だけを表示されないような設定ってありますか？行をあけると、大丈夫なのですが、空けずにできる方法をお願いします。

  • VBAでオートフィルターの再検索

    現在ＶＢＡでオートフィルターで絞ってある条件を一度解除してもう一度同じ条件で検索をしたいと思っていますが、出来ず困っています。 内容としては たとえば、Ａ１に"数字"、A2に"２"、A3に"3"とあった場合、A1でオートフィルターをかけ、絞り込みます。（何の条件で絞り込んだかは不明） この状態から、VBAを使います。 ＶＢＡで「一度オートフィルターを解除し、再度オートフィルターで同じ条件で絞る」という作業をしたいのですが、解除はできますが、同じ条件で再度絞り込みができません。 （たぶんCriterialの値を取得するのでしょうか？それもやり方がわかりません。） 何をしたいのか目的はと聞かれると、説明するだけでもややこしくなってしまいますので、簡単にやりたい作業だけかかせていただきました。 こんな作業は出来ますでしょうか？ 教えていただけたら、幸いでございます。 意味が分からなければ、また説明させていただきます。 　

  • エクセルVBA　オートフィルタについて

    オートフィルタは２つまでしか条件が設定できません。 ３つ以上設定する方法はないでしょうか？（OR条件です） オートフィルタの引数（Criteria）は２つしかありませんから、恐らく３つ以上の設定はできないと思っています。 そこで、オートフィルタを複数回設定し、使っていない列に特定の文字（例えば○など）を入れ、最後にこの○を条件にすることにより、実質的に３つ以上条件のフィルタリングを実現させたいと考えております。 そこでお聞きしたいのは、各条件でフィルタリングした時に、任意の列に○を入れる方法です。 例えば myRng.AutoFilter Field:=4, Criteria1:="=?UA*" でフィルタリングしたエリアの特定の列に○を入れるにはどのようなVBAになるのでしょうか？ オートフィルタを使わず、ループで全行の条件を聞いて、○をつけることは可能ですが、行数が非常に多いので時間がかかってしまいます。 オートフィルタを使えばすばやく該当行が選択されますので、何とかこれを利用したいと思っています。何か良い方法は無いでしょうか？ よろしくお願いします。

  • ＥＸＣＥＬでオートフィルタが使えないのですが・・・

    外注先から届いたデータをオートフィルタで日付を抽出しようとしたら、データ→フィルタをのぞくと、肝心な「オートフィルタ」がグレーになってて、機能が使えない状態になっています。 データは１行目に表題、２～４行目にかけて、タイトル行が作られています。 ２行目→　　　　　　　　　　　　　　支給 ３行目→　　　　　　　　　　　　貼合　　注入 ４行目→　ロットNo. 　日付 　　日 　　期限 　　大板　　処理数 良品 データ→　Q3118G　　2/26 　2/23 　3/16 　　20 　　1920 　　1851 こんな感じなのですが、なぜかフィルタがかかりません。 ２～３行目のタイトルを削除しても、やっぱりダメでした。 Ｗｉｎ９８　ＥＸＣＥＬ２０００使用です。宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する