Excel VBAでデータを自動処理したい（２）

質問

Excelで大量のデータ処理をしなくてはならないのですが、以下の処理をExcel VBAで自動処理できないでしょうか？どなたかお知恵をお貸しください。
別シートに参照リストと未完成リストがあります。参照リストのA列のデータの並びと未完成リストのA列の並びを同じくして、未完成リストを完成させます。参照リストのA列の並びはこんな風です。1 2 3 3 5 6 7 8 8 10 ・・・（データは昇順ですが必ずしも連番ではなく、同じデータが並ぶこともあります。）　そして未完成リストの方は、1 2 3 4 5 7 8 10 ・・・といった風です。未完成リストのA列は1 2 3 3 4 5 7 8 8 10・・・という風にしたいのです。つまり参照リストにあっても、未完成リストにないデータは無視します。（上の例では、6です。）参照リストになくて、未完成リストにあるデータはそのまま残します。（上の例では、4です。）両方に共通のデータで参照リストのようにデータが重複しているときは、未完成リストの方に重複している分だけ行を挿入し、上のデータをコピーします。（上の例では、3と8です。）この処理を例えば、それぞれのA列を比較し、お互い共通していないデータ行をそれぞれのリスト上で不可視にし、そのあと、参照リストのA列のデータを参考に重複してるデータを見つけたら、未完成リストの方に重複している分だけ自動に行を挿入し、上のデータをコピーして、参照リストと未完成リストの共通のデータを同じならびにしたいのです。（このあと、参照リストのB,C,Dのデータを未完成リストにコピーするので、未完成リストにしかないA列のデータは、不可視にしておいて、B,C,Dのデータをコピーするときに行がずれないようにしたいのです。）
以上(1)、(2)の処理を自動にさせるためのVBAが分かる方がいらっしゃいましたら、是非ご教授お願いいたします。

回答No.3

april21

＞どのデータが無視されたものなのか後で分かるように

nishi6さんが忙しい間、下記数式でどのデータが無視されたものなのか調べてみては？

A列に参照リスト（データの範囲に参照リストと名前を定義します）
B列に未完成リスト（データの範囲に未完成リストと名前を定義します）
名前の定義の方法は「Excel VBAでデータを自動処理したい」に書いたので省きます。

■C1など適当なセルに↓の数式をコピーして貼り付けます。
貼り付けたものをコピーしてB列と同数のセルを選択して貼り付けます。

=B1&"は未完成リストで　"&COUNTIF(参照リスト,B1)&"件"&IF(COUNTIF(参照リスト,B1)=0,"Bデータのみ","")

■↑と同じく貼り付け
=A1&"は参照リストで　"&COUNTIF(未完成リスト,A1)&"件"&IF(COUNTIF(未完成リスト,A1)=0,"Aデータのみ","")

↑の数式で「4は未完成リストで0件Bデータのみ」　「6は参照リストで0件Aデータのみ」というように表示されるばすです。

◎ここからコピーして直貼りするとセルの高さが変になるのでメモ帳とかに貼り付けてコピーしなおしてセルに。
nishi6さん(。・_・。)ノがんばってねぇ～♪
慣れなれしいすぎ　バキッ！☆／（x_x)ごめ

お礼

april21さん、前回の質問に引き続きこちらの方もご回答くださりありがとうございます。数式だけでもこのようなことが出来るのですね。ご参考にさせていただきます。