[[20051228215123]]　『同じ値のセルの抽出』（トリプルエクセル）　ページの最後に飛ぶ

『同じ値のセルの抽出』（トリプルエクセル）

 Ａ列とＢ列の同じ値をＣ列に順に並べて表示させるにはどうすればよいでしょう。

 (例)Ａ　Ｂ　Ｃ
 １　あ　あ　あ　　
 ２　か　し　た
 ３　さ　た　か
 ４　た　か　ら
 ５　な　ら　や
 ６　は　や
 ７　ま　す
 ８　や　み

 関数、マクロは問いません。よろしくおねがいします。

マクロで

辞書などを使って、配列を使うと速いと思うのですが・・

普通に回してます。

1行目に項目があるものとします。たとえば、項目１、項目２、重複　など

　Sub test()

    Dim myR As Range
    Dim r As Range

    Set myR = Range("B2", Range("B65536").End(xlUp))
    Application.ScreenUpdating = False
    For Each r In myR
      For i = 2 To Range("A65536").End(xlUp).Row
          If r.Value = Cells(i, "A").Value Then
             Range("C65536").End(xlUp).Offset(1).Value = r.Value
          End If
       Next
    Next
    Application.ScreenUpdating = True

End Sub

（SHIOJII）

 回答ありがとうございました。早速試してみます。(トリプルエクセル)

 Dim CCC As Range, nn As Variant
 For Each CCC In Range("a1", Range("a65536").End(xlUp))
    nn = Application.Match(CCC.Value, Columns(2), 0)
    If IsError(nn) = False Then
       Range("C65536").End(xlUp).Offset(1).Value = CCC.Value
    End If
 Next
 BJ

 これらも参考になるように思います。↓　　　　　　　　　　　　　　　　　　　(LOOKUP)
[[20050305200025]] 『A列とB列で一致するものだけをC列へ』(ラーメン君)

 ◆関数で！
 C1=IF(ROW(A1)>SUM(ISNUMBER(MATCH($A$1:$A$10,$B$1:$B$10,0))*1),"",INDEX($B$1:$B$8,SMALL(IF(ISNUMBER(MATCH($A$1:$A$10,$B$1:$B$10,0)),
MATCH($A$1:$A$10,$B$1:$B$10,0)),ROW(A1))))
 ★この式は「配列数式」です。式を入力後、Ctrl＋Shift＋Enter　をおして、式を確定させてください。
 ★確定すると、式の両端に｛　｝がつきます。
 ★式を確定させてから、式を下にコピー

 ◆いかがでしょうか！
 （Maron)

 こんなにもレスを頂き、感激です。
正直すぐには理解できませんが、
休み中になんとか理解したいと思います。
どうもありがとうございました。（トリプルエクセル）

コメント返信：

[ 一覧(最新更新順) ]

[[20051228215123]] 『同じ値のセルの抽出』（トリプルエクセル） ページの最後に飛ぶ

[[20051228215123]]　『同じ値のセルの抽出』（トリプルエクセル）　ページの最後に飛ぶ