エクセルで特定の行だけ選んで表示させる方法

質問

エクセルで８０００行２０列位あるデータの中から
Ａ列に３０という数値の入っている行と
Ａ列が空白になっている行を抽出し
なおかつ元のデータをその抽出したデータだけに置き換えたい
(Ａ列が３０と空白以外の行は削除してしまいたい)
のですがどのような方法がありますか？
なお、毎月同じような行数のデータを、同じように加工しなければ
ならないので簡単に出来るやり方を教えて下さい。
宜しくお願いします。

回答No.3

imogasi

（１）VBAで行う
（２）フィルタオプションの設定で行う
（２）は別シートに出すのにコツがいります。
ーー
空白セルは扱いがややこしいので、９９に置換しておきます。
下記の９９は元は空白セル。（本番では９９は多で起こらない値を考えてください）
コード 計数
30 12
99 11
21 12
22 14
11 34
30 25
23 5
30 4
99 11
15 10
ーーー
Ｓｈｅｅｔ２のＤ１：Ｅ３に
コード 計数
30
99
と条件を作っておく。
ーーーー
Ｓｈｅｅｔ２を選択しておく。
データーフィルターフィルタオプションの設定
ダイアログが出るが
指定した範囲をＯＮ
リスト範囲　Sheet1!$A$1:$B$11
検索条件範囲　$D$1:$D$3
抽出範囲　　$A$1:$B$19
と選択して（各々の斜め矢印をクリックして、範囲を選択すればよい、シートの選択はシートタブのクリック）
ＯＫ
結果
コード 計数
30 12
99 11
30 25
30 4
99 11

ーーー
＞元のデータをその抽出したデータだけに置き換えたい
は元へ（Ｓｈｅｅｔ１）へコピー張り付けすればよい。
＞毎月同じような行数のデータを、同じように加工しなければ
ならないので簡単に出来るやり方を教えて下さい
マクロの記録をとると
Sub Macro1()
Sheets("Sheet1").Select
Range("A2:A11").Select
Selection.Replace What:="", Replacement:="99", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'以上置換操作
'以下フィルタオプション
Sheets("Sheet1").Range("A1:B11").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("D1:D3"), CopyToRange:=Range("A1:B19"), Unique:= _
False
End Sub
これを下記に修正する。
（１）データ行の多少、毎月で最終行の変動
（２）Ｓｈｅｅｔ１，Ｓｈｅｅｔ２の両方が対象になることを明確化に対応。
Sub Macro1()
Worksheets("Sheet1").Select
d = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
Worksheets("Sheet1").Range("A2:A" & d).Select
Selection.Replace What:="", Replacement:="99", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'---
Worksheets("Sheet1").Range("A1:B1" & d).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Sheet2").Range("D1:D3"), CopyToRange:=Worksheets("Sheet2").Range("A1:B1000"), Unique:= _
False
End Sub
ーー
結果は手操作と同じになりました。
ーー
空白は９９などに置き換えなければダメかどうかゆっくり検証できないので、とりあえず急いで上記でまとめた。

回答No.2

mu2011

次の方法は如何でしょうか。
データ表シートをsheet1、見出し行が無い場合、任意の見出し行を挿入して下さい。
（１）別シートにA1を空白、A2に=OR(sheet1!A2=30,sheet1!A2="")（２）B1,B2を選択→データ→フィルタ→フィルタオプションの設定→警告ボックスはＯＫとして下さい。
（３）以下の操作をマウスで実施した方が簡単です。
　　・指定した範囲にチェックを付け
　　・リスト範囲欄に表範囲を設定
　　・検索範囲欄に$A$1:$A$2
　　・抽出範囲欄に$B$1
　　　以上を設定後→ＯＫ

回答No.1

mshr1962

列の先頭行が項目行なら「データ」「フィルタ」「オートフィルタ」を設定
Ａ列の先頭セルを選択、右に出る▼を押してオプションを選択
「30」「と等しい」
「or」
「」「と等しい」
でＥｎｔｅｒするとご希望の行のみ選択した状態になります。
範囲全体をコピーして、あたらしいシートに貼り付けすれば
不要な行を削除できます。