[[20180504152028]]　『重複の削除について』（Shin.S）　ページの最後に飛ぶ

『重複の削除について』（Shin.S）

現在このような表を作成しています。

A1/B1・D1/E1：結合してタイトル行として利用

A2～A30：入庫予定商品コード入力欄（表示形式：文字列）
B2～B30：VlookupでA行に入力したコードに紐付く商品名を自動反映
D2～D30：実入庫商品コード入力欄（表示形式：文字列）
E2～E30：B列と同様にVlookupで入力したコードに紐付く商品名を自動反映

【やりたいこと】
1.A列とD列を比較し重複行を両方とも削除
2.A列とD列を昇順で並べ替え

上記やりたいことをマクロで組みたいと思いますが、可能でしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

削除というのは、値を消去するということでしょうか
それとも、セルを削除して、上方向に詰めるということでしょうか。

（マナ） 2018/05/04(金) 16:53

to：まな様
言葉足らずで申し訳ございません。
可能であれば値の削除で対応したいと思っております。

（Shin.S） 2018/05/04(金) 17:01

こんな流れで考えてみてはどうでしょうか。
わからなければ、まずは手作業で実行してみて
できそうであれば、次は「マクロの記録」です。

１）Y2:Y30に下式をセット
　　=IF(COUNTIF(D:D,A2),"",A2)
２）Z2:Z30に下式をセット
　　=IF(COUNTIF(A:A,D2),"",D2)
３）Y2;Z30をコピーし、そのまま値貼り付け
４）Y2:Y30をコピーし、A2:A30に値貼り付け
５）Z2:Z30をコピーし、D2:D30に値貼り付け
６）A2:A30を選んで並べ替え
７）D2:D30を選んで並べ替え

（マナ） 2018/05/04(金) 17:14

to:マナ様
手動でプレビューしてみました。
ほぼ完璧で脱帽しております。
後ここだけ・・・教えてください。

1）2）で入力した数式の結果、空白セルを参照している場合、「0」が返されてしまいます。
このまま貼り付けてしまいますと、Vlookupが商品コードを「0」として反応してしまい、エラー結果が反映されてしまいます。
そのため、空白セルを参照してしまう場合は無で返すことはできますか？
（これだけできればもう完璧です<(_ _)>）
（Shin.S） 2018/05/04(金) 17:35

=IF(A2<>"",IF(COUNTIF(D:D,A2),"",A2)."")

のようにしたらだめでしょうか。

（マナ） 2018/05/04(金) 18:26

完璧にできました！
御助言に感謝申し上げます。
（Shin.S） 2018/05/04(金) 20:13

コメント返信：

[ 一覧(最新更新順) ]

[[20180504152028]] 『重複の削除について』（Shin.S） ページの最後に飛ぶ

[[20180504152028]]　『重複の削除について』（Shin.S）　ページの最後に飛ぶ