□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[3]: フィルタ抽出後のセルデータ削除について | |
|---|---|
[195734] Re[3]: フィルタ抽出後のセルデータ削除について- ■  / 記事引用/メール受信=OFF■
□投稿者/ 碧い月 -(2023/05/16(13:33)) □U R L/ マルチネス様 ご指摘頂き、ありがとうございました。 知識不足でご迷惑をおかけしてしまい申し訳ございませんでした。 | |
[195733] Re[2]: フィルタ抽出後のセルデータ削除について- ■記事引用/メール受信=OFF■ □投稿者/ マルチネス -(2023/05/16(13:13)) □U R L/ ここのサイトの注意事項に記載されている内容の一部です。 >マルチポストはご遠慮ください。 (同じ内容の質問を、同時に複数の掲示板に投稿 する行為をマルチポストと言います。) 詳しくはこちらをご覧になってください。 ht tps://www.excel.studio-kazu.jp/kw/20230516093413.html | |
[195732] Re[1]: フィルタ抽出後のセルデータ削除について- ■記事引用/メール受信=OFF■ □投稿者/ 碧い月 -(2023/05/16(11:06)) □U R L/ 追記です。 選択範囲は、見出し＆1行目は残しそれ以下のB列からJ列までのデータを選択して削除です。 説明不足で申し訳ありません。 引き続きご教授願います。。 | |
[195731] フィルタ抽出後のセルデータ削除について- ■親トピック/記事引用/メール受信=ON■ □投稿者/ 碧い月 -(2023/05/16(09:16)) □U R L/ 初めまして。こんにちは。
初心者なので、言葉足らずかと思いますがご教授願います。
範囲「B2:O300」でテーブル設定をし、「テーブル1」を作成して各見出しを設定し、表を作成しています。
「B1」に入力された値を検索値として「C2」でオートフィルタをかけます。
その後、抽出された一覧の見出し＆1行目は残し、2行目以降の値を削除。
削除後はオートフィルタを解除。
続けて、「B1」に別の値を入力→オートフィルタで抽出→表示結果の2行目以降を削除。
というVBAを作成したいです。
Sub Macro1()
ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=2, Criteria1:= _
Range("B1").Value, Operator:=xlAnd
With Range("B2").CurrentRegion.Offset(3, 0)
.Resize(.Rows.Count - 3, 9).SpecialCells(xlCellTypeVisible).Clear
ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=2
Range("B1").Select
End With
End Sub
上記、作成してみましたが、2回目以降の検索結果を範囲指定すると、検索結果の1行目から選択してしまいます。
常に表示された結果の見出しを除く、2行目から最終行までを範囲選択するにはどうすれば良いでしょうか？
説明不足のヶ所がありましたら申し訳ありません。
皆様のお知恵をお貸しいただければ幸いです。宜しくお願い致します。
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |