No.3ベストアンサー
- 回答日時:
テストデータとしてA1からB7に下記データを入れました。
-------
10a
30s
40d
50f
20g
60h
70j
------
そしてVBEのModule1に下記を入れました。
Sub Module1()
Worksheets("sheet1").Range("a1:b7").AutoFilter Field:=1, Criteria1:="<30"
Worksheets("sheet1").Range("a1:b7").Copy
Range("a10").Select
ActiveSheet.Paste
End Sub
実行するとA10:B11に
10a
20g
と表示されます。
操作では「オートフィルタ」-▼をクリック-「オプション」-左のボックスで30を選び-右のボックスで「より
小さい」を選ぶことに該当します。
AdvancedFilterというのもあります。
本で調べて見られては。
No.2
- 回答日時:
またまた、解答申し上げます。
。ex)の方をよく見てませんでした。30以下のものだけ抽出みたいなかんじでしたら、オートフィルタで十分です。
オートフィルタの下矢印をクリックすると「オプション」があるのでそれで「30以下」と設定するだけです。
テキストとして保存するのは先程のやり方だとできません(勘違いしてました・・)。やはりコピー&ペースがいいと思います。もし範囲が広くてやりにくい場合は、選択したい一番はじの上を選択して「control+shift+enter」で全部選べるはずです。もし間違ってたらすみません。
No.1
- 回答日時:
「フィルタオプション」という機能があります。
1)抽出したい元データの一番上に「抽出したい条件分+3~4行」の行を挿入する。
2)挿入した1行目に項目行をコピー&ペーストする
3)抽出したい条件を該当項目の下に1列に入力する。
例えば・・「個数」の項目がA1のセルだとすると、10、20、30、40個のものだけを抽出するという条件だとして10、20、30、40をA2~A5にいれていくということです。
4)どこでもいいので、元データのひとつのセルを選択する。
5)ツールバーより「データ」→「フィルタ」→「フィ ルタプション」を選ぶ。
6)すると自動的に検索したい元データを範囲選択してくれます。もし、間違った範囲だったら選択したい範囲をドラッグで選択し直してください。
7)検索条件範囲に抽出条件の範囲を選択します。3)の例だとすると、A1~A5を選択します(項目も忘れずに選択)。
8)OKする。
これで、抽出できます。
この状態で、「別名で保存」してファイル形式をテキストを選んで保存すればOKです。
これは、元のデータを加工してないので、「データ」→「フィルタ」→「すべて表示」で元に戻ります。
もし、抽出条件が2つだけならオートフィルタで
矢印をプルダウンするとオプションというのがあるので「or」で抽出することもできます。
つたない説明ですみません。お役にたてれば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセル関数で、数字の入った...
-
スプレッドシートのチェックボ...
-
エクセルの偶数行(奇数行)の抽出
-
ACCESSでスペースの抽出
-
関数で小数点以下を抽出したい
-
オートフィルタは金額の桁カン...
-
エクセル INDEXとRANDBETWEEN
-
オートフィルタの抽出が途中で...
-
Excelのフィルターで抽出した状...
-
Excel 非表示の列を飛ばして合...
-
オートフィルタで未入力(空白...
-
写真をイラスト風にしたい
-
EXCELでデータを抽出してコピペ...
-
エクセルにて、フィルタをかけ...
-
50音順にわける。
-
可視セルを対象としたcountifが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
Excel共有ブックのオートフィル...
-
access マクロでのフィルタの...
-
エクセルにて、フィルタをかけ...
-
エクセルで検索窓のようなもの...
-
データの抽出を教えてください
-
なぜShowAllDataだとうまく行か...
-
エクセル、オートフィルタで最...
-
オートフィルタで3つ以上の条...
-
エクセルで、条件に一致した行...
-
Excelで文字を入力と自動的にフ...
-
可視セルを対象としたcountifが...
-
【EXCEL】条件に一致した最新デ...
-
今日の日付のデータをすばやく...
-
ACCESSでスペースの抽出
おすすめ情報