重複したデータを除き、別セルに表示したい。

質問

ＥＸＣＥＬ初心者です、教えてください。
セルＢ2から列方向に、
品名・Ａ・Ｂ・Ａ・Ｂ・Ｂ・Ｃと入力しフィルタオプションを使って　　指定した範囲、リスト範囲、検索条件、抽出範囲、重複するレコードは無視、を指定　そうしますと　セルＤ2に　品名・Ａ・Ｂ・Ｃと絞込みができました。　しかし列Ｂの品名は毎日変わるので、品名以下（設定範囲）と列Ｄ（抽出範囲）をDeleteで削除
翌日のデータを入れたところ抽出範囲である列Ｄは動かず
毎回あらためて設定しなくてはならず大変です。
1度設定したら何回も使える方法はないでしょうか？

回答No.1

imogasi · ベストアンサー

マクロの記録をとり
Sub Macro1()
d = Range("A65536").End(xlUp).Row
Range("A1:A" & d).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C1:C" & d), Unique:=True
End Sub
のようなコードがわかる。
最下行が毎回変わるので
d = Range("A65536").End(xlUp).Rowで捉え（Endキー＋↑の操作に当たる）を入れて、範囲の下限を指定している２箇所を変えた。
ーー
これをコマンドボタンのクリックイベントのコードにでも挟めば
OK。やり方は勉強のこと。Googleで「ボタン　クリックイベント　VBA」で照会すればコードなどはわかる。
＝＝＝
フィルタオプションの設定のダイアロウグで、データ範囲の設定の指定を、現状の範囲をはんえいさせて変える関数的なものは無いと思う。
ーーー
セル範囲に名前を（余分目のセル範囲に）付けて、リスト範囲にそれを指定し、実行することは出来そう。ーー＞テストして出来た。
＝＝＝＝
また
imogasi方式で（関数で）出来る。
Googleで「imogasi方式で照会のこと。
連番を振るが
商品 連番
a 1
s 2
d 3
f 4
a
s
g 5
a
b 6
e 7
d
f
q 8
qq 9
B2は　=IF(COUNTIF($A$2:A2,A2)=1,MAX($B$1:B1)+1,"")
C2に
=INDEX($A$1:$A$100,MATCH(ROW()-1,$B$1:$B$100,0),1)
と入れて下方向に式を複写
丁寧には
=IF(ROW()-1>MAX($B$2:$B$100),"",INDEX($A$1:$A$100,MATCH(ROW()-1,$B$1:$B$100,0),1))
関数ですから式を余分目の行まで入れておくほかない。それでもいつか越えるかもしれない。しかし全行に式を入れておくのも処理時間の面で感心しない。
折り合いをつけるほか無かろう。

お礼

3つも範例を頂いてありがとうございました。
imogasi方式でやってみたところ、品名の横に連番セル列と抽出セル列が固定され出てきました。imogasi方式や関数の意味がまだ分かってないのですが、とにかく2つのセル列幅を最小にしフォントを白にして　表の見栄えをよくし、抽出セル列を目的セルにリンクして、解決いたしました。　即答を感謝します。又よろしくお願いいたします。

回答No.2

hallo-2007

重複したデータを別セルに抽出する目的があるように感じましたが、
ピボットテーブルは試して見られましたか？
B列を選択、ツールバーの「データ」＝＞「ピボットテーブルと・・・」で
ウィザードに従ってピボットテーブルを作成しておきます。
ピボットテーブルの縦列にB列をドラックしておくと、次からからは
ピボットテーブルを右クリック＝＞データの更新でご希望の表が毎日出来ます。

お礼

ありがとうございました。ビボットテーブルでも出来るんですね、
勉強してみます。