2シート間 重複データ削除

Question

2シート間の重複データを削除したいです。
Ａの商品データ（約300件）より、Ｂの商品データ（50件）を削除したいです。

今まではVLOOKUPで探して手作業で削除していたので、マクロで作りたいと考えております。
よろしくお願いします。

言葉足らずで大変申し訳ございません。エクセルデータです。
Aのシートは、A1～A300まで商品コード（数字のみ）
その数字の横（B列）に商品名が記載されています。 Bシートも同じ作りです。
商品コード（数字）で重複商品を探し削除まで行いたいです。

Comments

[退会済みユーザー]

・Ｇｏｏｇｌｅスプレッドシートではなく、Microsoft Excelのマクロという理解でよろしいでしょうか。
・「商品データ」の構造はどういう感じなんでしょうか。（シートの何列から何列までが処理対象の商品データなのか）
・AとBの商品データが同じかどうかは、どの列で区別するんでしょうか？

[hentaiman]

あなたの言う「マクロ」を使うとvlookupを使ってはいけないというルールがあるんでしょうか？それともプログラム修行の為の制約でもかけてるんでしょうか？

[1T2R3M4]

作業依頼にしか見えませんが、以下はご理解してますか。

コードをください・デバッグしてください等の丸投げの質問
何かを作りたいのでコードを書いてほしい、学校の課題を解いてほしい等の質問は、具体的にプログラミングで困っている質問ではないと考え、推奨していません。
以下再確認お願いします。
https://teratail.com/help/avoid-asking

[kikukiku]

マクロを使わなくても下記の方法で満たせそうですが、
これでは駄目ですか？
シート１は削除される側のシート、シート２は削除対象の商品コードが記載されたシートとします。
シート１のA１に商品コード、B1に商品名であるので、
C1に式で○または空白を記載する。○は、シート１のA1がシート２のA１からA300に存在していれば○とする。
同様に、C2からC300についても式を埋め込む。
オートフィルタの機能で、○以外を指定すれば、良いと思います。

[kikukiku]

上記C1への式の例
=IF(ISNA(VLOOKUP(A1, Sheet2!$A$1:$A$7, 1,FALSE)), "", "○")

Answer 1

こんな感じでどうですかね

Sub macro()
    Set A = Worksheets("A")
    Set B = Worksheets("B")
    lastA = A.Cells(Rows.Count, 1).End(xlUp).Row
    lastB = B.Cells(Rows.Count, 1).End(xlUp).Row
    For i = lastA To 1 Step -1
        If WorksheetFunction.CountIf(B.Columns("A"), A.Range("A" & i)) > 0 Then
            A.Rows(i).Delete
        End If
    Next
End Sub

Comments

[amanozemi]

今度からは、しっかり具体的に内容を記入することと、コメントにもあるような質問をしないように心がけます。本当にありがとうございます。