【VBA】重複行の削除について

Question

こんにちは。
以下の内容について教えてください。

【やりたいこと】
range("B1:F1")とrange("B2:F2")が重複していた場合は、
下にある行（この場合、2行目）のA列に〇を入れて、1行目の列を削除する。
RemoveDuplicatesはいきなり消えてしまい、ifが使用できないので、、、

' range = range はエラー　→　実行時エラー'13'型が一致しません
 if (range("B1:F1") = range("B2:F2")) then
    range("A2").value = "〇"
 end if

' range.value = range.value でもエラー　→　実行時エラー'13'型が一致しません
 if (range("B1:F1").value = range("B2:F2").value) then
    range("A2").value = "〇"
 end if

恐れ入りますが、重複行の照らし合わせ方を教えてください。

Comments

[m.ts10806]

念のためエラーメッセージをそのままご提示ください。
また、実際のセルに何が入っているか、結果どのように出したいのか、例示してください。

[nanami12]

上記コードでは、if分の所でコンパイルエラーとなるでしょう。
最低でも処理の部分を作るテクニックをご教授下さい
とまで自分で進めましょう

Answer 1

range("B1:F1") = range("B2:F2")

複数セルの複数の値と複数セルの複数の値をいきなり単純に比較はできません。
それぞれを文字列としてつなげて、1つの値にしてから比較してみてはいかがでしょう？

RemoveDuplicatesはいきなり消えてしまい、ifが使用できないので、、、

RemoveDuplicatesメソッドは必ず上の行が残るので、
1回逆順に並べなおしてから実行してはいかがでしょう？

        [B]   [C]   [D]   
  [2]    1     あ    1    
  [3]    1     あ    2    
  [4]    2     あ    1    
  [5]    2     い    1    
  [6]    3     あ    1    
  [7]    4     い    2    
  [8]    5     あ    1    
  [9]    5     い    2    

上のような表の時

Sub test()
    With ActiveSheet.Range("B2").CurrentRegion
        .Columns(0).Formula = "=IF(CONCATENATE(B2,C2)=CONCATENATE(B1,C1),""○"","" "")"
        .Columns(.Columns.Count + 1).Formula = "=Row()"
    End With
    With ActiveSheet.Range("B2").CurrentRegion
        .Value = .Value
        .Sort .Cells(1, .Columns.Count), xlDescending
        .RemoveDuplicates Columns:=Array(2, 3)
        .Sort .Cells(1, .Columns.Count), xlAscending
        .Columns(1).Replace " ", ""
        .Columns(.Columns.Count).ClearContents
    End With
End Sub

Answer 2

以下の記事がほぼ同じ質問なので参考になると思います。

・VBAマクロ セル範囲同士の比較
https://teratail.com/questions/30994

Answer 3

地道に、

If range("B1") = range("B2") AND _
   range("C1") = range("C2") AND _
   range("D1") = range("D2") AND _
   range("E1") = range("E2") AND _ 
   range("F1") = range("F2") AND _
Then
   range("A2").value = "〇"
End If

これはちょっと分かりづらいかも

If Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Range("A1:F1").Value))) _
 = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Range("A2:F2").Value))) _
Then
   range("A2").value = "〇"
End If

ループを使うなら、

    Dim b As Boolean
    Dim r As Range
    
    b = True
    For Each r In Range("B1:f1").Cells
        If r <> r.Offset(1) Then
            b = False
            Exit For
        End If
    Next
    If b Then Range("A2").Value = "〇"