Excelでの抽出方法を教えてください

質問

Excelに以下のデータが入力されています。
氏名　　日付　都市名
Ａさん　 9/8　東京
Ｂさん　9/15　大阪
Ｃさん　9/16　仙台
Ｂさん　9/19　名古屋
Ｃさん　9/22　前橋
Ｄさん　9/22　横浜
Ｃさん　9/22　清水
Ａさん　9/30　東京

これらのデータから氏名欄に出現する氏名の一覧を抽出したいのです
求められている結果は

Ａさん
Ｂさん
Ｃさん
Ｄさん

です。
何か方法はあるでしょうか。

回答No.2

imogasi · ベストアンサー

ＶＢＡですが、わずか十数行のコードで出来ます。
やったことが無ければやって見てください。
プログラムの組み方は稚拙ですが、１０００件でも一瞬で終わりました。表の「行数」も自動的に採る方法もありますが（
１行で）極くシンプルにしました。cells(○、△）は○行
△列のデータ値を示します。For i = 1 To 行数はiを１ずつ
増やして行数になるまでNext iまでの処理を繰り返します。新顔はCells(j, y) に書き出します。１行ずつそれと比較し、その中に無ければ、追加しています。
-----------
Sub test01()
Dim x As Integer 'どの列の出現メンバを考えるか
Dim y As Integer 'どの列へ書き出すか
Dim 行数 As Long
x = 1: y = 5: 行数 = 20 '本例での仮のデータ
k = 1
For i = 1 To 行数
For j = 1 To k
If Cells(i, x) = Cells(j, y) Then
GoTo p01
End If
Next j
Cells(k, y) = Cells(i, x)
k = k + 1
p01:
Next i
End Sub
---------------
VBAですがワークシートの画面において、ＡＬＴ＋Ｆ１１をするとＶＢＥの画面になり、ＡＬＴ＋Ｉ、ＡＬＴ＋ＭをするとＭｏｊｕｌｅ１の挿入が出来るので、上記のSub test01()から
End Subまでをコピーして、Ｍｏｊｕｌｅ１画面に貼り付けて、Ｆ５を押す（実行する）と出来ます。

お礼

imogasiさんわざわざサンプルVBAまで載せて頂きどうもありがとうございました。うまくいきました。助かりました。

回答No.1

papayuka

こんにちは。

氏名がA列で「氏名」というタイトルがあるとして、
仮にA2:A100が入力範囲とします。

1.タイトルを含む A1:A100のみを選択
2.データ－フィルタ－フィルタオプションの設定
3.メッセージにはOK
4.重複するレコードは無視するにチェックをしてOK

以上で抽出出来ます。

非表示になっているだけなので、データ－フィルタ－全て表示で戻せます。
コピーして違うシートにでも貼りつければ、重複を除いた値のみ取れます。

お礼

早速の回答どうもありがとうございました。試したところ確かに抽出できました。助かりました。