| 
    
     |  | ▼kanabun さん: 
 ありがとうございます!
 案が浮かばず、マクロ作成が進まなかったので
 すごく助かりました。
 
 
 >▼かのか さん:
 >
 >>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)を別シートにすることもできます。
 
 |  |