『ピボットテーブルでオートフィルタを使用したい』（まま） 最近、お世話になっています。 ピボットテーブルを作成し、受付番号がダブって入力されていないか番号のデータの個数の確認をしています。 集計した列にオートフィルタを使用したいのですが、うまくできません。 (受付番号の列はオートフィルタがかかります。) 集計列にオートフィルタができるようにするにはどうしたらよいのでしょうか? データの個数が1のものはよいのですが、2や3になっているものを取り出したいのです。 (Windows2000 Excel2002) ---- いきなり削除はいけませんか 重複した行は削除しながら上に詰める とりあえずA1:A30の範囲としています 範囲は実情に合わせて変えてください Sub 重複削除並び替え() 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) ---- ご回答ありがとうございます。 もっと単純にピボットでの設定はできないでしょうか?? ビボットテーブルの受付番号のところに▼と右向きの▲を表示することがしたいのです。 ---- とんでもない回答を出してしまったようです どなたか質問者の質問の意味がよく理解できる人が居られましたらよきアドバイスお願いします 見当違いの解答を書いてしまってすみませんでした どなたか宜しくお願いします (shota) ---- 出来ないのでは？ ※ピボットテーブルのタイトルを選択しても、オートフィルタが有効になりませんので。 単にそれだけの目的であれば、代替案として ↓ ではダメですか？ １．C2セル =IF(A2="","",N(COUNTIF(A:A,A2)>1))　と入力してフィルダウン ２．オートフィルタで、C列の「1」だけ抽出 　　　　　　　　　　　　　　　　　　　→抽出　　 行 ___A____ _B__ ______C_______ 　　　　 行 ___A____ _B__ ______C_______ 1 受付番号 姓 ダブりチェック 1 受付番号 姓 ダブりチェック 2 1 野川 0 4 3 鹿嶋 1 3 2 佐久 0 5 3 矢谷 1 4 3 鹿嶋 1 7 5 菅田 1 5 3 矢谷 1 8 5 榎原 1 6 4 青笹 0 7 5 菅田 1 8 5 榎原 1 9 7 秋浦 0 (半平太) ---- ピボットテーブルを２行目から配置し 　○「列」を選んでオートフィルタをかける 　○同列１行目のセルをアクティブにしてオートフィルタをかける のでは、ご希望の事にはなりませんかね？ ＞(受付番号の列はオートフィルタがかかります。) これは、どの様に行って居られるのでしょうか？ また、その時のピボットテーブルの状態（シート内配置等） どの様になっているのでしょうか？ (HANA) ---- 大変失礼いたしました。m(__)m >ピボットテーブルを２行目から配置し これで出来ますね。 (半平太)