[[20210824131309]]　『離れたセルのデータを複数抽出したいです。』（初心者）　ページの最後に飛ぶ

『離れたセルのデータを複数抽出したいです。』（初心者）

いつもお世話になっております。

入力データ
1日目 C D E F G H
2 No 氏名種類ブドウ値段 200
3 1 岡田種類いちご値段 190
4 2 会田種類かき値段 100
2日目 C D E F G H
5 3 河合種類みかん値段 200
6 4 近藤種類ブドウ値段 300
7 5 井上種類ブドウ値段 180
8 6 木下種類かき値段 200
3日目 C D E F G H
9 7 岡田種類梨値段 500
10 8 佐々木種類りんご値段 250
11 9 桑田種類バナナ値段 400

抽出データ　B C
氏名　　　　　
岡田　　ブドウ　梨
佐々木りんご
河合　　　　みかん

上記の入力データから下記の抽出データだけを抽出して表をあらたに作成したいのですが何か方法はありますでしょうか？
抜き出したいデータ自体はプルダウンで自動入力できるようにはしています。
よろしくお願いします。

＜使用アプリ：スプレッドシート、使用 OS：Windows10 ＞

回答ではないです。

わたしだけかもしれませんが、レイアウトが分かりづらいです。

 ・左端の数字が行番号だとすると、見出し行（タイトル行）は２行目から？
 ・１日目、２日目の情報はどこにあるのか。（抽出に使用する情報？）

氏名に対して購入したものを抽出したいということでしたら、下のような表にすると、フィルターでもテーブルでも、ピボットでも希望のことはできると思います。

 No	　　日付	氏名	種類	値段
 1	2021/8/24	岡田	ブドウ	200
 2	2021/8/24	佐々木	いちご	190
 3	2021/8/24	河合	かき	100
 4	2021/8/24	会田	みかん	200
 5	2021/8/24	近藤	バナナ	400
 6	2021/8/25	井上	りんご	250
 7	2021/8/25	木下	ブドウ	200
 8	2021/8/25	岡田	いちご	190
 9	2021/8/25	佐々木	かき	100
 10	2021/8/25	河合	みかん	200
 11	2021/8/26	会田	バナナ	400
 12	2021/8/26	近藤	りんご	250
 13	2021/8/26	井上	ブドウ	200

参考にしてください。
（ぬっこ） 2021/08/24(火) 14:00

 B1セル =transpose(filter('シート1'!$F$1:$F$13,ARRAYFORMULA('シート1'!$D$1:$D$13=A2)))

 下にコピー、と言うことなのかなぁ・・

（半平太） 2021/08/24(火) 14:45

Sub main()

    Dim r As Range, c As Range, dic As Object, k As Variant, sht As Worksheet
    Set dic = CreateObject("Scripting.Dictionary")
    For Each sht In Worksheets
        For Each c In sht.UsedRange '.Cells.SpecialCells(2)
            If c.Value = "種類" Then dic(c.Offset(, -1).Value & Chr(2) & c.Offset(, 1).Value) = True
        Next c
    Next sht
    Set sht = Worksheets.Add(, Sheets(Sheets.Count)) '.Name = "抽出後"
    For Each k In dic
        Set r = sht.Range("A:A").Find(Split(k, Chr(2))(0), , , xlWhole)
        If r Is Nothing Then Set r = sht.Range("A" & Rows.Count).End(xlUp).Offset(1): r.Value = Split(k, Chr(2))(0)
        r.Offset(, WorksheetFunction.CountA(r.EntireRow)).Value = Split(k, Chr(2))(1)
    Next k
End Sub
（mm） 2021/08/24(火) 16:55

コメント返信：

[ 一覧(最新更新順) ]

[[20210824131309]] 『離れたセルのデータを複数抽出したいです。』（初心者） ページの最後に飛ぶ

[[20210824131309]]　『離れたセルのデータを複数抽出したいです。』（初心者）　ページの最後に飛ぶ