エクセルの関数を使った抽出方法

質問

エクセルの関数を使った抽出方法
お世話になります。Excelで下記のような例で同じ製品が複数存在するリストから
製品が重複しないようにリスト化することは可能でしょうか？
「重複の削除」を使わずに抽出したいです。
当方はオフィス2003使用です。
sheet1が日報でsheet2が請求書です。金額は抽出して合計しなくていいです。
あくまでも製品名だけをsheet2の請求書に抽出したいです。

何かよい方法をご存知の方がいらっしゃいましたらご指導願います。

よろしくお願いいたします。

【抽出前】sheet1

製品名　　　金額
　 A　　　　　○円
　 B　　　　　○円　　
　 B　　　　　○円　
　 B　　　　　○円　
　 C　　　　　○円　　
　 C　　　　　○円　　　
　 D　　　　　○円　　
　 E　　　　　○円
　 E　　　　　○円
　 F　　　　　○円

【抽出後】sheet2
製品名　　　金額
　 A　　　　　○円
　 B　　　　　○円　　　
　 C　　　　　○円
　 D　　　　　○円
　 E　　　　　○円
　 F　　　　　○円

回答No.2

mu2011 · ベストアンサー

関数は行単位の処理は不得意ですのでマクロは如何でしょうか。
（１）シート２のシートタブを右クリック→コードの表示→右上画面に以下のコードを貼り付け→VBE画面終了
（２）シート２でマクロ→マクロ実行

サンプルコード
以下のコードはフィルタオプションの設定で重複レコードを削除する操作をマクロ記録したものです。

Sub Macro1()
Sheets("Sheet1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("A1"), Unique:=True
End Sub

お礼

やっと出来ましたありがとうございました。
またよろしくお願いします。

回答No.1

KURUMITO

シート1のＡおよびＢ列の2行目から下方にそれぞれのデータがあるとします。
作業列としてＣ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A2="","",IF(COUNTIF(A$2:A2,A2)=1,MAX(C$1:C1)+1,""))

これで製品名が変わるごとに上から番号が付けられます。
次にシート2のＡ1セルには製品名、Ｂ1セルには金額と入力してからＡ2セルには次の式を入力してＢ2セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(ROW(A1)>MAX(Sheet1!$C:$C),"",INDEX(Sheet1!$A:$B,MATCH(ROW(A1),Sheet1!$C:$C,0),COLUMN(A1)))

難しい式を使わずにわかりやすい方法で計算に負担のかからない方法です。