Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4371 / 13644 ツリー ←次へ | 前へ→

【57058】同じ列内にある重複するデータを抽出するには? さぶちゃん 08/7/21(月) 0:00 質問[未読]
【57059】Re:同じ列内にある重複するデータを抽出す... ponpon 08/7/21(月) 0:30 発言[未読]
【57060】Re:同じ列内にある重複するデータを抽出す... ponpon 08/7/21(月) 1:12 発言[未読]
【57061】Re:同じ列内にある重複するデータを抽出す... さぶちゃん 08/7/21(月) 13:34 質問[未読]
【57062】Re:同じ列内にある重複するデータを抽出す... かみちゃん 08/7/21(月) 14:06 発言[未読]
【57068】Re:同じ列内にある重複するデータを抽出す... さぶちゃん 08/7/21(月) 23:29 お礼[未読]
【57069】Re:同じ列内にある重複するデータを抽出す... さぶちゃん 08/7/21(月) 23:35 お礼[未読]

【57058】同じ列内にある重複するデータを抽出する...
質問  さぶちゃん  - 08/7/21(月) 0:00 -

引用なし
パスワード
   こんにちは。
Aの列の中に重複するデータ(違う値で複数)があります。これを抽出して、Bの列にコピーするVBAコードを作成したいのですがどうしてもよく分かりません。
具体的には下記の様なイメージなのですが、どなたかご教授願えないでしょうか。
宜しくお願いいたします。
   A   B
1  7.3
2  7.0  7.0
3  7.0  7.0
4  7.6
5  7.2
6  7.9
7  8.0  8.0
8  8.0  8.0
9  7.7

【57059】Re:同じ列内にある重複するデータを抽出...
発言  ponpon  - 08/7/21(月) 0:30 -

引用なし
パスワード
   ▼さぶちゃん さん:
>こんにちは。

おはようございます。

>Aの列の中に重複するデータ(違う値で複数)があります。これを抽出して、Bの列にコピーするVBAコードを作成したいのですがどうしてもよく分かりません。
>具体的には下記の様なイメージなのですが、どなたかご教授願えないでしょうか。

関数ではダメですか?

B1に
 =IF(COUNTIF($A$1:$A$9,A1)>1,A1,"")
          ~~~~~~~~~~~
         ↑ここはA列のデータ範囲 
 で、後はフィル

【57060】Re:同じ列内にある重複するデータを抽出...
発言  ponpon  - 08/7/21(月) 1:12 -

引用なし
パスワード
   VBAなら、
アクティブシートで考えてます。

Sub test2()
  Dim myR As Range
  Set myR = Range("A1", Range("A" & Rows.Count).End(xlUp))
  With myR.Offset(, 1)
     .Formula = "=IF(COUNTIF(" & myR.Address & ",A1)>1,A1,"""")"
     .Value = .Value
  End With
End Sub

【57061】Re:同じ列内にある重複するデータを抽出...
質問  さぶちゃん  - 08/7/21(月) 13:34 -

引用なし
パスワード
   ▼ponpon さん:

いつも丁寧な回答をありがとうございます。
早速、ご教授頂いたコードで実行してみたのですが、私の知識不足のせいか上手く実行できずにエラーとなってしまいます。コードのどこか一部を手直しして記述しなければいけないのでしょうか?
それとも、もし私の意図する所が正しくお伝えできていないのであれば、改めて私の質問の追加説明をさせて頂きます。

Aの列の中に重複するデータがあります。
下記の様にA2,A3に同じ数値データがあり、他にもA7,A8に別の数値データがあります。説明のための例として重複データが上記のセルになっていますが、実際はどこに重複データがあるかは分かりません。また、データ量も50〜100位存在するので重複するデータも二つまでとは限らず、一つの場合もあればそれ以上の場合もあります。
この様な条件で、A列の中から重複しているデータがあればそれを全て抽出してB列にコピーをしたいというのが私の希望するところです。
宜しくお願いいたします。

   A   B
1  7.3
2  7.0  7.0
3  7.0  7.0
4  7.6
5  7.2
6  7.9
7  8.0  8.0
8  8.0  8.0
9  7.7

【57062】Re:同じ列内にある重複するデータを抽出...
発言  かみちゃん  - 08/7/21(月) 14:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>上手く実行できずにエラーとなってしまいます

ponponさん提示のコードですと、エラーは出ずに、さぶちゃんの希望しているとおり
B列に重複されているデータが出力されています。

どのコードでどのようなエラーメッセージになっているか説明していただくことはできませんか?

【57068】Re:同じ列内にある重複するデータを抽出...
お礼  さぶちゃん  - 08/7/21(月) 23:29 -

引用なし
パスワード
   ▼かみちゃん さん:
再度試してみたところ上手く実行できました。
私の単純なコードの記述ミスだった様です。
アドバイスありがとうございました。

【57069】Re:同じ列内にある重複するデータを抽出...
お礼  さぶちゃん  - 08/7/21(月) 23:35 -

引用なし
パスワード
   ▼ponpon さん:
他の方からの指摘で再度試したところ、ponponさんの提示してくれたコードで間違いなく実行できました。
私の単純な記述ミスでした。
大変申し訳ありませんでした。

4371 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free