[[20160626123852]]　『任意のデータを抽出して日付順に並べたい』（安藤）　ページの最後に飛ぶ

『任意のデータを抽出して日付順に並べたい』（安藤）

すいません、よろしくお願いします。

sheet1
　　　　Ａ列　　　　　　Ｂ列　　　Ｃ列　　　　　Ｄ列　　　　Ｅ列
１行　　日付　　　　　　氏名　　　項目１　　　項目２　　項目３
２行　2016/06/26　　　佐藤　　　みかん　　　りんご　　すいか
３行　2015/06/12 　　田中　　　米　　　　　みかん　　いちご
４行　2015/07/24　　佐藤　　　米　　　　　いちご　　　なし
５行　2015/12/24　　　佐藤　　　　　　　　　　　　　　　　くり
６行　2015/07/24　　佐藤　　　麦　　　　　ビール　　　なし
などとあって、

sheet2の
Ａ２セルに佐藤と入力したら、
　　　　Ａ列　　　　　Ｂ列　　　Ｃ列　　　　Ｄ列　　　　Ｅ列
１行　　日付　　　　　項目１　　　項目２　　項目３
２行 2015/7/24　　　米　　　　　いちご　　　なし
３行　2015/07/24　　麦　　　　　ビール　　　なし
４行　2015/12/24　　　　　　　　　　　　　　　くり　
５行　2016/06･26　　　みかん　　　りんご　　すいか

と関数のみで表示されるようにいたいのです。
日付が重複することはありｍすが、同じ日付がある場合、その中の順番は問いません。
よろしくお願いいたします。

＜使用 Excel：Excel2007、使用 OS：Windows8 ＞

関数ではありませんが、フィルタ操作で１分もあればできあがり。

１）シート１のフィルタでB列佐藤を抽出、A列は昇順
２）B列を非表示
３）抽出行をコピペ
４）シート１のB列再表示、
５）シート１のフィルタ解除

（マナ） 2016/06/26(日) 14:32

ありがとうございます。

そうなんです。手作業でやれば済む話だとは思うのですが、
何とかならないものかと思い、質問させていただきました。
（安藤） 2016/06/26(日) 14:37

関数でというのは、やっぱりマクロは使いたくないのでしょうか。

 Sub test()
    Dim データ As Range
    Dim 抽出先 As Range
    Dim 条件 As String

    Set データ = Sheets("Sheet1").Range("A1").CurrentRegion
    Set 抽出先 = Sheets("Sheet3").Range("A1")
    条件 = Sheets("Sheet2").Range("A2").Value

    データ.AutoFilter Field:=2, Criteria1:=条件
    データ.Columns("B").EntireColumn.Hidden = True

    抽出先.CurrentRegion.ClearContents
    データ.Copy 抽出先
    抽出先.CurrentRegion.Sort Key1:=抽出先.Range("A1"), Header:=xlYes

    データ.Columns("B").EntireColumn.Hidden = False
    データ.AutoFilter

 End Sub

（マナ） 2016/06/26(日) 15:55

ありがとうございます。

何とか頑張って解決しました。

（安藤） 2016/06/26(日) 19:55

コメント返信：

[ 一覧(最新更新順) ]

[[20160626123852]] 『任意のデータを抽出して日付順に並べたい』（安藤） ページの最後に飛ぶ

[[20160626123852]]　『任意のデータを抽出して日付順に並べたい』（安藤）　ページの最後に飛ぶ