[[20120619014603]]　『AシートのA列とBシートA列を比較して無い行を削除』（eBI）　ページの最後に飛ぶ

『AシートのA列とBシートA列を比較して無い行を削除する方法』（eBI）

 真夜中にすみません。
 何方かご教授下さい。

 AシートのA列とBシートのA列を比較して、
 BシートのA列と重複しないAシートのA列の行を削除する方法を探しています。

 具体的には以下のような形で（実際の行は1000位）して、
 この場合、SheetAの1・4・7・8以外の行を削除したいのです。
 なお、SheetAの数値は重複することがありますが、
 SheetBの数値は重複する数値がありません。
 SheetAにあってSheetBにない数値やSheetBにあってSheetAにない数値もあります。

 手作業はかなり無理があり困っています。
 VBAによる事になるのではないかと思いますが、
 失礼で恐縮ですが具体的に書いて頂けると大変助かります。
 （時間があればネットで調べて切り張りして動くかどうかの繰り返しぐらいはするのですが・・・）

 SheetA	A		SheetB	A
 1	2222		1	1111
 2	9432		2	2222
 3	9432		3	
 4	1111		4	
 5	1236		5	
 6	1546		6	
 7	1111		7	
 8	1111		8	
 9	3431		9	
 10	3631		10	
 11	3631		11	
 12	1234		12	
 13	3431		13

 おそらく、最も簡単（かつ高速処理）な方法は

 ・SheetA、SheetB ともに　１行目に同じ名前のタイトルを挿入
 ・SheetBのA1:A3を条件欄にして、SheetAのA列からフィルターオプションで、別シートに1111,2222のみを抽出。
 ・抽出された別シートの列をSheetAのA列にコピペ。

 ＶＢＡが希望ならこの動きをマクロ記録。

 (ぶらっと)

 じゃ、タイトル追加しない＆作業列案

 SheetAのB列に
 =VLOOKUP(A1,SheetB!$A$1:$A$2,1,0)
 の式を入れてA列と同じ行数だけコピーペースト。
 （またはセル選択の右下にカーソルを合わせてダブルクリック）

 Crel+Gでジャンプ機能表示。
 セル選択ボタンをクリックし、出てきたダイアログの中から
 「数式」にチェックを入れ、「エラー値」のチェックのみにする。
 で、OKすると「#N/A」のエラーだけが選択されるので、その上で右クリック。
 出てきたメニューから「削除」を選択し、「行全体」をチェックしOK。

 最後にB列を削除しておわり。
 (1111)

コメント返信：

[ 一覧(最新更新順) ]

[[20120619014603]] 『AシートのA列とBシートA列を比較して無い行を削除』（eBI） ページの最後に飛ぶ

[[20120619014603]]　『AシートのA列とBシートA列を比較して無い行を削除』（eBI）　ページの最後に飛ぶ