>>111
そのデータがワークシート上にあるんなら、オートフィルターかければ?
VBAで1行で書けるぞ