|
▼かのか さん:
>2列で重複しないデータを書き出したいのですが
>方法が浮かびません。
>
>A B
>111 顧客
>111 知人
>111 顧客
>111 顧客
>222 知人
>333 顧客
>333 知人
>333 顧客
フィルタオプションを使ってみてはどうでしょう?
(例)
1行目に見出し行を追加し、
作業列に [C2] =A2&B2 でフィルダウンして A列とB列を結合したものを
代入しておく。
A B C
Code Cat work
111 顧客 111顧客
111 知人 111知人
111 顧客 111顧客
111 知人 111知人
222 顧客 222顧客
333 知人 333知人
333 顧客 333顧客
333 知人 333知人
出力先に、A列見出しとB列見出しだけ Copyしておいて、
メニュ-[データ]-[フィルタ]-[フィルタオプションの設定]
リスト範囲 [$A$1:$C$9]
抽出先 [A列見出しとB列見出しをCopyしたセル範囲 たとえば $H$1:$I$1]
■ 重複するレコードは無視する にチェックを入れ、
[OK]
これで、A、B列の重複しないリストが得られます。
マクロの記録をとると、
Range("A1:C9").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"H1:I1"), Unique:=True
の1行マクロとなります。
抽出先(CopyToRange)を別シートにすることもできます。
|
|