Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7311 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39847】条件抽出 nene 06/7/3(月) 2:11 質問[未読]
【39848】Re:条件抽出 kobasan 06/7/3(月) 7:21 発言[未読]
【39863】Re:条件抽出 Kein 06/7/3(月) 13:20 回答[未読]
【39898】Re:条件抽出 nene 06/7/3(月) 23:43 お礼[未読]
【39897】Re:条件抽出 nene 06/7/3(月) 23:35 発言[未読]
【39847】条件抽出
質問  nene  - 06/7/3(月) 2:11 -
引用なし
パスワード
   はじめましてneneと申します。

Aの行にはあるが、B〜Eの行にはない複数の値を抽出させたいのです。

値は文字列でありA〜Eにはそれぞれ約8000個の値があります。
A〜Eはそれぞれ共通（重複）した値を約7000個含んでおり
残りが異なる値となっています。
そこで、重複した値以外を抽出したいのですが、
うまくやる方法はないでしょうか？

フィルタでチャレンジしましたがうまくいかず、VBAしかないと思い
相談に来ました。よろしくお願いします。
【39848】Re:条件抽出
発言  kobasan  - 06/7/3(月) 7:21 -
引用なし
パスワード
   nene さん　おはようござます。
>はじめましてneneと申します。
>
>Aの行にはあるが、B〜Eの行にはない複数の値を抽出させたいのです。
>
>値は文字列でありA〜Eにはそれぞれ約8000個の値があります。
>A〜Eはそれぞれ共通（重複）した値を約7000個含んでおり
>残りが異なる値となっています。
>そこで、重複した値以外を抽出したいのですが、

やりたいことは、こんな感じですか？

Sheet1（元データ）
data1　　data2　　data3　　　data4　　　data5
a1　　　　b1　　　　c1　　　　d1　　　　e1
a2　　　　b2　　　　a1　　　　d2　　　　a2
a3　　　　a2　　　　c3　　　　a1　　　　e3
a4　　　　b4　　　　a3　　　　d4　　　　a5
a5　　　　b5　　　　c5　　　　a1　　　　e5

を

Sheet2（抽出結果）
data1　　data2　　data3　　data4　　data5
a1　　　　b1　　　　c1　　　　d1　　　e1
a2　　　　b2　　　　　　　　　d2　　　　
a3　　　　　　　　　c3　　　　　　　　e3
a4　　　　b4　　　　　　　　　d4　　　　
a5　　　　b5　　　　c5　　　　　　　　e5

のようにしたいのですか。
【39863】Re:条件抽出
回答  Kein  - 06/7/3(月) 13:20 -
引用なし
パスワード
   イミディエイト・ウィンドウに出力するとして・・

Sub Test_Find()
　 Dim FR As Range, C As Range

　 For Each C In Range("A1", Range("A65536").End(xlUp))
　　　Set FR = Range("B:E").Find(C.Value, , xlValues, xlWhole)
　　　If FR Is Nothing Then
　　　　 Debug.Print C.Value
　　　Else
　　　　 Set FR = Nothing
　　　End If
　 Next
　 With Application.VBE.MainWindow
　　　.Visible = True
　　　.SetFocus
　 End With
　 SendKeys "^(g)", True
End Sub
【39897】Re:条件抽出
発言  nene  - 06/7/3(月) 23:35 -
引用なし
パスワード
   kobasan さん ありがとうございます。
>>やりたいことは、こんな感じですか？
>
>Sheet1（元データ）
>data1　　data2　　data3　　　data4　　　data5
>a1　　　　b1　　　　c1　　　　d1　　　　e1
>a2　　　　b2　　　　a1　　　　d2　　　　a2
>a3　　　　a2　　　　c3　　　　a1　　　　e3
>a4　　　　b4　　　　a3　　　　d4　　　　a5
>a5　　　　b5　　　　c5　　　　a1　　　　e5
>
>を
>
>Sheet2（抽出結果）
>data1　　data2　　data3　　data4　　data5
>a1　　　　b1　　　　c1　　　　d1　　　e1
>a2　　　　b2　　　　　　　　　d2　　　　
>a3　　　　　　　　　c3　　　　　　　　e3
>a4　　　　b4　　　　　　　　　d4　　　　
>a5　　　　b5　　　　c5　　　　　　　　e5
>
>のようにしたいのですか。

はい。ほぼその通りです。
Sheet2に結果を出力する場合はどうしたらよいですか？
【39898】Re:条件抽出
お礼  nene  - 06/7/3(月) 23:43 -
引用なし
パスワード
   Kein さん ありがとうございます。
>イミディエイト・ウィンドウに出力するとして・・

すごいですね。
Aの行にしかない値が抽出されました。
Withの内容がよく分かりませんがやりたことができて嬉しいです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7311 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free