Ｐａｇｅ 516 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼複数合致を他のシートに表示 カゴメ 03/1/7(火) 10:04 ┣Re:複数合致を他のシートに表示 ポンタ 03/1/8(水) 9:21 ┃ ┗Re:複数合致を他のシートに表示 Jaka 03/1/8(水) 15:47 ┗Re:複数合致を他のシートに表示 カゴメ 03/1/8(水) 19:33 ─────────────────────────────────────── ■題名 ： 複数合致を他のシートに表示 ■名前 ： カゴメ ■日付 ： 03/1/7(火) 10:04 -------------------------------------------------------------------------
| はじめまして。 色々書籍を読んでいるのですが、 まだまだ勉強不足で・・・。 お手数をお掛けいたしますが、よろしくお願いいたします。 Seet1 電池 ｜ 水筒 ｜ 土鍋 ｜ 茶碗 ｜ ・・・ Ａさん 購入 ｜ 購入 ｜ ｜ ｜ Ｂさん ｜ 購入 ｜ 購入 ｜ 購入 ｜ Ｃさん 購入 ｜ 購入 ｜ 購入 ｜ ｜ Ｄさん ｜ ｜ 購入 ｜ 購入 ｜ ・ ・ ・ という感じのデータ群があって、Seet2に複数合致しているものを 抜き出したいのですが、やり方が判らず困っております。 申し訳ありませんが、アドバイスよろしくお願いいたします。 Seet2 電池 ｜ 水筒 ｜ 土鍋 ｜ 茶碗 ｜ ・・・ Ａさん 購入 ｜ 購入 ｜ Ｃさん 購入 ｜ 購入 ｜ Ｂさん ｜ 購入 ｜ 購入 ｜ Ｃさん ｜ 購入 ｜ 購入 ｜ Ｂさん ｜ ｜ 購入 ｜ 購入 ｜ Ｄさん ｜ ｜ 購入 ｜ 購入 ｜ こういった感じの判断がしたいのですが・・・。 |
| レスがなかなか付かないので出てきました。 回答でなくて申し訳ないのですが、 "複数合致"の規則性が分かりません。 電池と水筒、水筒と土鍋、土鍋と茶碗を "購入"のグループを作りたいということですか？ 電池と土鍋、電池と茶碗という組み合わせがないから、 私の認識は違うような気もしますが･･･。 |
| こんにちは。 あまり工夫を凝らしてませんが．．。 Sub be() Worksheets("Sheet2").Range("B1").Value = "電池" Worksheets("Sheet2").Range("C1").Value = "水筒" Worksheets("Sheet2").Range("D1").Value = "土鍋" Worksheets("Sheet2").Range("E1").Value = "茶碗" RR = 1 For C = 2 To 5 RR = RR + 1 For R = 2 To Cells(Rows.Count, C).End(xlUp).Row If Cells(R, C).Value <> "" And Cells(R, C).Value = Cells(R, C + 1).Value Then Worksheets("Sheet2").Cells(RR, 1).Value = Cells(R, 1).Value Worksheets("Sheet2").Cells(RR, C).Resize(, 2).Value = Cells(R, C).Resize(, 2).Value RR = RR + 1 End If Next Next End Sub |
| ポンタさん、Jakaさん、ありがとうございました。m(..)m おかげさまで、もやもやが吹っ飛び、ＶＢＡの勉強が進みそうです。 本当にご助言、ありがとうございました。 |