Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
一つ上のデータと同じなら他のセルへ書き出したい
投稿日時: 18/04/13 08:32:03
投稿者: のんびり

お世話になります。役1000件分のデータが有ります
A列    B列   C列
受付番号  商品名  個別No,
1     A    1-1
2     C    3-2
3     G    8-5
4     Q    10-7
5     C    3-2
この様になっています
商品名と個別No.が同じものが有ったら、同じデータ2件分(3件有るかもしれないのです)を全て別のセルに書き出したいのです。一度並べ替えて上のセルと下のセルを比べて同じだったら別のセルに書き出したいと思うのですが、並べ替えは出来ましたが、その先が出来ません。どうぞ宜しくご教示ください。

回答
投稿日時: 18/04/13 08:38:41
投稿者: mattuwan44

>全て別のセルに書き出したいのです。
すべてなら、結局並び替えたままコピペしたらいいのかな?
 
コピペしてから並び替え?
 
も少し詳しく、やりたいことを説明願います。

投稿日時: 18/04/13 10:36:17
投稿者: のんびり

説明不足で申し訳なく思います。商品名と個別No.が同じならば、同じデータだけを別のセルに書き出したいのです。セルはどこでもかまいません。重複データだけの一覧表を作りたいのです。よろしくお願いいたします。

回答
投稿日時: 18/04/13 11:57:29
投稿者: mattuwan44

>説明不足で申し訳なく思います。

回答側には何の不都合もありませんが、
質問側には不利益でしょう。
とはいえなかなか上手く説明できるものでもないので、そこはやり取りしながら、
すり合わせていければいいかなと思います。
 
重複しているデータのリストを作りたいのですね?
例えば、
 

┌────┬───┬────┬──────────┬────────┐
│受付番号│商品名│個別No, │=CONCATENATE(B1,C1) │=COUNTIF(D:D,D1)│
├────┼───┼────┼──────────┼────────┤
│       1│A    │1-1     │                    │                │
├────┼───┼────┼──────────┼────────┤
│       2│C    │3-2     │                    │                │
├────┼───┼────┼──────────┼────────┤
│       3│G    │8-5     │                    │                │
├────┼───┼────┼──────────┼────────┤
│       4│Q    │10-7    │                    │                │
├────┼───┼────┼──────────┼────────┤
│       5│C    │3-2     │                    │                │
└────┴───┴────┴──────────┴────────┘

 
1)↑な数式を入れてD1からE1を選択して、フィルハンドルをダブルクリック
2)オートフィルターでE列が2以上の物を抽出
3)そのまま表全体を選択してコピー
4)書き出したい位置に貼りつけ
5)重複を削除の機能でA列のチェックをはずしてOK
6)不要な列を削除
 
としたら必要なリストが作れると思います。
7)後片付けでオートフィルターを解除
8)不要な作業列クリア
 
とすればよいでしょうか?
 
マクロにしたかったら、この操作をマクロの記録でコードに翻訳し、
参考にするところから始めてみてはいかがでしょうか?

投稿日時: 18/04/13 12:47:53
投稿者: のんびり

mattuwan44 さん有難うございました。文字列を繋ぐ関数を使う方法は考えられませんでした。早速この方法を使わせていただきます。感謝します。