[[20070116021645]]　『また教えてください』（Pink）　ページの最後に飛ぶ

『また教えてください』（Pink）

シート1

   A     B　　 C    D
1 0101  富士　 2   2006/12/11
2 0102  ｱﾙﾌﾟｽ　1   2006/12/11　
3 0101  富士　 3   2006/12/13
4 0103  さくら 1   2006/12/14
5 0102  ｱﾙﾌﾟｽ　2   2006/12/15

シート2

   A     B　　     
1 0101  富士　    
2 0102  ｱﾙﾌﾟｽ　   
3 0103  さくら

シート１のＡ列の複数ある値を自動的にシート２へ１つに
表示する方法はありますか？関数等ありましたら教えてください。
(B列参照せずに)

こんにちは。

個人的には1行目に項目行が在る、またはダミーでも良いので作成出来るなら「フィルタオプション」がお奨めですが【自動的】となると数式でやった方が良いのかな・・・

重複の無いリストを作成する様々な方法をChiquilinさんがわかりやすくまとめていらっしゃるので参考にされてはいかがでしょう。（boy）

【重複のないリストを作成する】
http://www.geocities.jp/chiquilin_site/data/060314_integrated_list.html

マクロですが参考になるでしょうか ?

 Sub 重複削除並び替え()
 '次の使用例は、Sheet1 の 1 番目の列のデータを並べ替え、重複するデータを含む行を削除します。
     Range("A1:A30").Select
     Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
         :=xlPinYin, DataOption1:=xlSortNormal
         Worksheets("Sheet1").Range("A1").Sort _
   Key1:=Worksheets("Sheet1").Range("A1"), Order1:=xlAscending, Header:=xlYes, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
         :=xlPinYin
 Set currentCell = Worksheets("Sheet1").Range("A1")
 Do While Not IsEmpty(currentCell)
   Set nextCell = currentCell.Offset(1, 0)
   If nextCell.Value = currentCell.Value Then
     currentCell.EntireRow.Delete
   End If
   Set currentCell = nextCell
 Loop
 Range("A1").Select
 End Sub
 (shota)

コメント返信：

[ 一覧(最新更新順) ]

[[20070116021645]] 『また教えてください』（Pink） ページの最後に飛ぶ

[[20070116021645]]　『また教えてください』（Pink）　ページの最後に飛ぶ