エクセルでのフィルタリング

質問

基本的なことかもしれませんが教えて下さい。
AB列　　AC列　　←このような感じで2000件近くの数字が入力
　２　　　８　　　　してあるのですが、そのなかから『AB列
　４　　　５　　　　とAC列の数値が異なるもの』を抽出し、
　４　　　４　　　　『AB列＝AC列』のものを削除したいの
　３　　　４　　　　ですがどうすればいいのでしょうか？

回答No.1

kaisendon · ベストアンサー

おはようございます

ＡＤ１に　=IF($AB1<>$AC1,AB1,"")　と入力
ＡＥ１にコピー

ＡＤ１とＡＥ１を選択して
必要なだけ下にフィルコピー

これで
＞『AB列とAC列の数値が異なるもの』
が抽出できます。

元のＡＢ列、ＡＣ列に戻したいのならＡＤ列とＡＥ列を選択してコピー
ＡＢ列を選択して　形式を選択して貼り付け　「値」

でいいと思います。

その後さらに空白を上に詰めたいのなら
ＡＢ列、ＡＣ列を選択して
編集-ジャンプ-セル選択-定数にチェック-文字にチェック
（数値、倫理値、エラー値のチェックは外す）
ＯＫボタン
→数値を削除したセルが選択されるので
マウスポインタを選択されたセルに合わせて　
右クリック-削除-上方向にシフト-ＯＫ

用が済んだら作業用に使ったＡＤ列をＡＥ列は削除していいです。

質問の意味を取り違えていたとしたらゴメンナサイ(*_ _)

お礼

おかげさまで解決しました！
回答ありがとうございました。

回答No.4

imogasi

ＶＢＡでやるのが素直に考えられるのだが、関数でやって見ます。
Ｓｈｈｅｔ１のＡ２：Ｃ９に（下記Ｃ列は結果、データはＡ２：Ｂ９．）
a 1 1
s s
d 3 2
a a
s 5 3
a 6 4
d d
f 8 5
Ｃ２に=IF(A2=B2,"",MAX($C$1:C1)+1)と入れて下方向に式を複写します。
結果は上記のようになります。
Ｓｈｅｅｔ２に行って
Ａ３に=OFFSET(Sheet1!$A$2,MATCH(ROW()-2,Sheet1!$C$2:$C$100,0)-1,0)
下方向に式複写。
Ｂ３に=OFFSET(Sheet1!$A$2,MATCH(ROW()-2,Sheet1!$C$2:$C$100,0)-1,1)
下方向に式複写
結果はＡ３：Ｂ７に
a 1
d 3
s 5
a 6
f 8
となります。

お礼

おかげさまで解決しました！
回答ありがとうございました。

回答No.3

noname#24921

NO1,NO2 のかたとほぼ同じ内容ですが、

AA列　AB列　AC列　AD列
　１　　　２　　　 ８　　　０　←　
　２　　　４　　　 ５　　　０　
　３　　　４　　　 ４　　　１
　４　　　３　　　 ４　　　０

(1)例えばAB列の前に新たに列を設ける（AA列）か空ている列を利用し追番を入れておく
(2)例えばAD列の矢印のセルに(ここが２行目とすれば)
　=if(ab2<>ac2,0,1) の式を入力し、行方向にコピーすると、AD列は上のように表示されます。
(3)次に必要な範囲を選択し（この場合　AA1～AD5）
　　「データ」→「並び替え」→「AD列をキー」→「昇順」で並び替えを行う。
(4)AD列が"1"のデータをまとめて削除し、再びAA列をキーとして並び変えておく。
　<同じ数値の場合に　もし行を削除する時は、この操作は不要なことは言うまでも有りません。
　AA列も不要>
(5)最後に不要な列や数式は削除しておく

お礼

おかげさまで解決しました！
回答ありがとうございました。

回答No.2

shiotan99

こんにちは～

オートフィルタを使えばいいと思いますよ。

AB・AC列に見出しはありますか？
なければ AB1セルに適当になにか見出しを入れてください。
1行目からデータが始まっているのなら、1行目に新たに行を挿入して見出し行をつくってください。

AD2に

=IF(AB2=AC2,1,"")

と入れて、AB・AC列のデータ最終行までコピー
AB列＝AC列 なら AD列に 1が入ると思います。

ABからAD列のどれかのセルが選択された状態で、
メニューの「データ」－「フィルタ」－「オートフィルタ」
AD1セルに現れた▼をクリックして表示されたものから 1 を選択

AB列＝AC列 の行だけがフィルタリングされますから、
行全体を削除したいのなら行番号をドラッグし、行全体を選択して削除。
AB・AC列のデータだけを削除したいのなら、データ範囲をドラッグして削除。

オートフィルタを解除するには、
もう一度、メニューの「データ」－「フィルタ」－「オートフィルタ」をクリック。

一度、テスト環境で試してみてください。

参考URL：

http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex_ks_syokyu9_2.htm

お礼

おかげさまで解決しました！
サイトもいろいろ載っていて良いですね。
回答ありがとうございました。