Excel VBA質問箱 IV

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

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


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

【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の内容がよく分かりませんがやりたことができて嬉しいです。

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