[[20061019121604]]　『重複したものを表示しない』（ま♪お）　ページの最後に飛ぶ

『重複したものを表示しない』（ま♪お）

 [セルの行に数字書いてある。かぶっている数字も多いが、
かぶっているものを一つ残す。もともとひとつの数字もそのまま
残したい。]
宜しくお願いします。

 やりたいことはなんとなく分かるのですが、もう少し分かりやすい表現はできませんか？
 具体的なセル番地なども掲載いただくと、回答しやすいです＾＾；
 (ROUGE)

 	[A]	[B]
 [1]	10	
 [2]	10	
 [3]	15	
 [4]	20	
 [5]	10	
 [6]	20

 とあるとして、
 B1=INDEX($A$1:$A$6,SMALL(IF(MATCH($A$1:$A$6,$A$1:$A$6,0)=ROW($A$1:$A$6),ROW($A$1:$A$6)),ROW(A1)),1)
 として、Ctrl+Shift+Enter で確定します。
 そして、下行へフィルコピーです。
 こんなことでしょうか？
   (SS)

[[20060121122823]] ←こちらが参考になるかもです（あきお）

 最初、勘違いして、
        A        B
 1  100220245  =suuji(A1)
              ↓
        A        B
 1  100220245  10245

 こんなの作ってみましたが、使い道無いですね＞＜

 標準モジュール
 Function suuji(target)
    Dim i(10) As Integer
    Dim suu As Integer
    Dim moji As String
    Dim a As String
    Dim m As String
    Dim j As Integer

    If IsNull(target) Or _
       target = "" Then
        Exit Function
    End If

    moji = CStr(target)
    suu = Len(moji)

    For j = 1 To suu
        a = Mid(moji, j, 1)
        If i(CInt(a)) = 0 Then
            i(CInt(a)) = 1
            m = m & a
        End If
    Next j
    suuji = m
 End Function

ありがとうございます。私の説明がわるかったです・・・。

   現在     やりたい事
    A            A
１ 青木      １青木
２ 鈴木      ２鈴木
３ 吉村   ⇒ ３吉村
４ 青木    
５ 青木
６ 鈴木

上記の様に数の多い順に並べた上、それぞれかぶっているものを
一つずつにしたいです。

 ピボットテーブルを使う例です（あきお）

  1) タイトルが無い場合、行を挿入してタイトルを付けます。
       A
   1 氏名  <- タイトル（適当な文言）
   2 青木
   3 鈴木
   4 吉村
   5 青木
   6 青木
   7 鈴木

  2) A1セル（氏名）をクリック

  3) [メニューバー]-[データ]-[ピボットテーブルとピボットグラフ レポート]
    → ピボットテーブルウィザード1/3 が表示される

  4) ピボットテーブルウィザード1/3 の [次へ]ボタン
    → ピボットテーブルウィザード2/3 が表示される

  5) ピボットテーブルウィザード2/3 の [次へ]ボタン
    → ピボットテーブルウィザード3/3 が表示される

  6) ピボットテーブルウィザード3/3 の [レイアウト]ボタン
    → ピボットテーブルウィザード-レイアウト が表示される

  7) ピボットテーブルウィザード-レイアウトで、
     [氏名]をつまんで 行(R) の場所へ（ドラッグ）

              列(C)
           +----------
     [氏名]|                     ←こんな感じになります
     行(R) | データ(D)

  8) 同じく、
     [氏名]をつまんで データ(D) の場所へ（ドラッグ）

              列(C)
           +----------
     氏名  | データの個数/氏名   ←こんな感じになります
     行(R) | データ(D)

  9) 次に、[OK]ボタン
    → ピボットテーブルウィザード3/3 が表示される

 10) ピボットテーブルウィザード3/3 の [完了]ボタン
    → 新しいシートに下記結果が表示される

            A                 B
     1
     2
     3  データの個数 / 氏名   
     4  氏名                 集計
     5  吉村                  1
     6  青木                  3
     7  鈴木                  2
     8  総計                  6

 11) A8セル（総計）で右クリックして、リストから[表示しない]を選択

            A                 B
     1
     2
     3  データの個数 / 氏名   
     4  氏名                 集計
     5  吉村                  1
     6  青木                  3
     7  鈴木                  2

 12) B5セル（1）をクリック

 13) [メニューバー]-[データ]-[並べ替え]
     [降順]チェック、[OK]ボタン

 参考URL
 ＠IT：Windows TIPS -- Tips：ピボットテーブルでクロス集計を行う
http://www.atmarkit.co.jp/fwin2k/win2ktips/359pivot/pivot.html

 こっちに続いているようです。↓　質問者さんのお名前違いますけど、例題が全く同じです。
[[20061019164312]]『ならべかえ』（まるまるまる）
(かなれっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20061019121604]] 『重複したものを表示しない』（ま♪お） ページの最後に飛ぶ

[[20061019121604]]　『重複したものを表示しない』（ま♪お）　ページの最後に飛ぶ