Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7422 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39219】空白行を含むオートフィルタ抽出について hito 06/6/19(月) 23:23 質問[未読]
【39220】Re:空白行を含むオートフィルタ抽出について Kein 06/6/19(月) 23:36 発言[未読]
【39276】Re:空白行を含むオートフィルタ抽出について hito 06/6/20(火) 23:36 お礼[未読]
【39221】Re:空白行を含むオートフィルタ抽出につ... ponpon 06/6/19(月) 23:51 発言[未読]
【39277】Re:空白行を含むオートフィルタ抽出につ... hito 06/6/20(火) 23:38 お礼[未読]
【39219】空白行を含むオートフィルタ抽出について
質問  hito  - 06/6/19(月) 23:23 -
引用なし
パスワード
   いつもお世話になっております。

完全な空白行を含んでいるシートで、シート全体に対して
オートフィルタを効かせたいのですが、可能でしょうか？

項目１　項目２
AAA　　 A1
BBB　　 B1
　　　　　 ←完全な空白行
EEE　　 C1
FFF　　 D1
　　　　　　←完全な空白行
GGG　　 E1

オートフィルタを使うとAAA〜BBBまでしか対象には
ならないです。

別の列にダミー列を作れば、対象になることは
わかったのですが、データが大きくなってしまうので
できれば避けたいと思っています。

また、なぜ、このようなことがしたいかと言うと、
別のシートにインデックスをもっていて、インデックスに
指定してある行にデータを格納するという事をしたいために
どうしても完全な空白行ができてしまいます。

どうもうまく説明ができないのですが、なにか良い方法が
あれば、ご教授願います。

よろしくお願いいたします。
【39220】Re:空白行を含むオートフィルタ抽出につ...
発言  Kein  - 06/6/19(月) 23:36 -
引用なし
パスワード
   すぐ下のスレッド
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=39180;id=excel
で、私が回答している方法なら、問題なく抽出できるはずですが・・。
【39221】Re:空白行を含むオートフィルタ抽出につ...
発言  ponpon  - 06/6/19(月) 23:51 -
引用なし
パスワード
   こんばんは。
Keinさんからすでに回答がついていますが、
範囲を指定してやればどうですか？

Sub test()
　 Dim myR As Range
　 Set myR = Range("A1", Range("A65536").End(xlUp)).Resize(, 1)
　 myR.AutoFilter 1, "AAA"
End Sub
【39276】Re:空白行を含むオートフィルタ抽出につ...
お礼  hito  - 06/6/20(火) 23:36 -
引用なし
パスワード
   keinさん

すぐ下のスレッドは、見てはいたものの、プログラムの
意味がわからなかった（高度すぎて）のと、大きな勘違いもあって
違うものだと思っていました。

失礼しました。。。（汗）

それで、おっしゃるっとおり、使ってみたところ
うまく動きました！！

どうもありがとうございました。

▼Kein さん：
>すぐ下のスレッド
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=39180;id=excel
>で、私が回答している方法なら、問題なく抽出できるはずですが・・。
【39277】Re:空白行を含むオートフィルタ抽出につ...
お礼  hito  - 06/6/20(火) 23:38 -
引用なし
パスワード
   ｐｏｎｎｐｏｎさん

回答ありがとうございます。
Ｋｅｉｎさんからも回答をいただいて、動作はＯＫでしたが
私のイメージからすると、ｐｏｎｐｏｎさんの回答が
より近い感じです。
使わせていただきます！

いずれにしても、大変困っていたところだったので
お二方には、大変感謝しています。

どうもありがとうございました！

▼ponpon さん：
>こんばんは。
>Keinさんからすでに回答がついていますが、
>範囲を指定してやればどうですか？
>
>Sub test()
>　 Dim myR As Range
>　 Set myR = Range("A1", Range("A65536").End(xlUp)).Resize(, 1)
>　 myR.AutoFilter 1, "AAA"
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7422 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free