Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42520 / 76732

←次へ　｜　前へ→


	【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

1 hits

▼

【39219】空白行を含むオートフィルタ抽出について hito 06/6/19(月) 23:23