VBAを使用した、複数条件での重複チェック

Question

VBA初心者です。
Excel2010を使用しています。
よろしくお願いします。

H列 国名が表示されています。
V列 文字列
W列 文字列

H列が「日本」の時は、V列で重複チェックする。

H列が、日本以外の時（アメリカ、ドイツなど）は
W列で重複チェックする。
ただし、W列が「除外」と入力されている行は、無視する。

どちらの場合も重複していたら、ひとつめを含めて
該当行のA〜Wまで黄色にする。

全て組み合わせた記入の仕方が分かりませんでした。わかる方、教えて下さい。よろしくお願いします。

tatsu99 · Accepted Answer

以下のマクロを標準モジュールへ登録してください。
Option Explicit
Public Sub 重複チェック()
    Dim maxrow As Long
    Dim row As Long
    Dim dicT0 As Object
    Dim dicT1 As Object
    Dim key1 As Variant
    Dim key2 As Variant
    Dim key As Variant
    Set dicT0 = CreateObject("Scripting.Dictionary") ' 連想配列の定義
    Set dicT1 = CreateObject("Scripting.Dictionary") ' 連想配列の定義
    
    maxrow = Cells(Rows.Count, "H").End(xlUp).row 'sheet H列 最終行を求める
    '既存の色を解除
    Range("A2:W" & maxrow).Select
    With Selection.Interior
        .Pattern = xlNone
    End With
    For row = 2 To maxrow
        key1 = Cells(row, "H").Value
        If key1 = "日本" Then
            key2 = Cells(row, "V").Value
        Else
            key2 = Cells(row, "W").Value
        End If
        If key1 = "日本" Or key2 <> "除外" Then
            key = key1 & "|" & key2
            If dicT0.exists(key) = True Then
                dicT1(row) = True
                dicT1(dicT0(key)) = True
            Else
                dicT0(key) = row
            End If
        End If
    Next
    For Each key In dicT1
        Range("A" & key & ":W" & key).Select
        With Selection.Interior
            .Color = 65535
        End With
    Next
    MsgBox ("完了")
End Sub

tatsu99 · Answer

すみません。
No3の回答ですが、
>３）日本以外の場合は、重複判定ですが、 ①「国名＋W行の文字列」が重複の場合、重複とする。 （この場合、青色部分は重複しない。）
> ②W行の文字列のみで、重複の判定をする。 （この場合、青色部分は重複する） ①②のどちらでしょうか。
>の設問に対する回答は「 ①「国名＋W行の文字列」が重複の場合、重複とする。 （この場合、青色部分は重複しない。）」でした。
①の仕様で作成していました。（②ではありません）
したがって、結果的にNo3がそのまま使えます。

tatsu99 · Answer

３）日本以外の場合は、重複判定ですが、 ①「国名＋W行の文字列」が重複の場合、重複とする。 （この場合、青色部分は重複しない。） ②W行の文字列のみで、重複の判定をする。 （この場合、青色部分は重複する） ①②のどちらでしょうか。
の設問に対する回答は「 ①「国名＋W行の文字列」が重複の場合、重複とする。 （この場合、青色部分は重複しない。）」でした。

＞特にこの部分が分からなくて悩んでいるので、
＞よろしければ教えていただけますでしょうか。

判らないというのは、①と②の違いが判らないという意味ですか？
それとも①を実装するには、どうすれば良いかわからないという意味ですか？
どちらの意味でしょうか？

tatsu99 · Answer

追加補足要求です。
１）行はどのくらいありますか。

tatsu99 · Answer

補足要求です。
１）1行目は見出しですか。（添付図のグレー部分）

２）W行が除外の場合、無視するとなってますが、国名が日本でも同様ですか。
①日本でも無視するなら、緑の部分は重複しない。
②日本は無視しないなら、緑の部分は重複する。
①②のどちらでしょうか？

３）日本以外の場合は、重複判定ですが、
①「国名＋W行の文字列」が重複の場合、重複とする。
（この場合、青色部分は重複しない。）
②W行の文字列のみで、重複の判定をする。
（この場合、青色部分は重複する）
①②のどちらでしょうか。

４）日本の場合は、V列に除外という文字があっても、通常の文字列として扱う。
従って、オレンジの部分は重複する。・・・これであってますか。

VBAを使用した、複数条件での重複チェック

以下のマクロを標準モジュールへ登録してください。

すみません。

３）日本以外の場合は、重複判定ですが、 ①「国名＋W行の文字列」が重複の場合、重複とする。

追加補足要求です。

補足要求です。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング