[[20220513162601]]　『重複しているデータを別シートに抽出したい』（葉山）　ページの最後に飛ぶ

『重複しているデータを別シートに抽出したい』（葉山）

ご教授いただければ幸いです。
下記VBAコードでA～H列までのデータ内にて
A列・C列・G列内で重複しているデータを削除するマクロを使用しています。

Sub 重複()

  Dim lRow As Long 
  Last = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:H" & Last).RemoveDuplicatesColumns:=Array(1, 3, 7), Header:=xlYes
End Sub

重複データを削除ではなく、別シートに抽出したいのですが
どのように変更すればよろしいでしょうか？
RemoveDuplicatesColumns ⇐ ここで重複削除しているみたいですが
抽出する場合のコードが分からず難儀しております。

何卒宜しくお願い致します。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

下記のようにすれば、知っているコードだけでできるのでは？

1.データをコピーして退避
2.重複削除処理
3処理済みデータと退避データを比較し、重複データ削除
4,退避データに残ったものを別シートに抽出

（初心者A） 2022/05/13(金) 16:40

たとえば、、、

商品
じゃがいも
にんじん
にんじん
たまねぎ
じゃがいも
こまつな
にんじん
しいたけ
じゃがいも
しいたけ
じゃがいも

とあった場合、どれを抽出したいのですか？

ちなみに、

 >RemoveDuplicatesColumns ⇐ ここで重複削除しているみたいですが

エクセルの重複を削除の機能を使う命令です。

（まっつわん） 2022/05/13(金) 16:58

コメント返信：

[ 一覧(最新更新順) ]

[[20220513162601]] 『重複しているデータを別シートに抽出したい』（葉山） ページの最後に飛ぶ

[[20220513162601]]　『重複しているデータを別シートに抽出したい』（葉山）　ページの最後に飛ぶ