[[20051228215123]] 『同じ値のセルの抽出』(トリプルエクセル) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『同じ値のセルの抽出』(トリプルエクセル)
 A列とB列の同じ値をC列に順に並べて表示させるにはどうすればよいでしょう。

 (例)A B C
 1 あ あ あ  
 2 か し た
 3 さ た か
 4 た か ら
 5 な ら や
 6 は や
 7 ま す
 8 や み

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

マクロで

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

普通に回してます。

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

 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)

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.