VBAのプログラミングについて

Question

Sheet1のA1に入力した内容がSheet2のA1～A100の内容と重複していないかを確認し、重複していた場合は、色を付けるというVBAを作成しているのですが、うまく動作いたしません。なぜでしょうか？

---

Sub Test1()

Dim i As Long

For i = 1 To 100

If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), Sheets("Sheet1").Cells(i, 1)) > 1 Then

Sheets("Sheet1").Cells(i, 1).Interior.ColorIndex = 6

End If
Next i
End Sub

---

Comments

[y_waiwai]

うまく動作しないとはどういうふうになるんでしょうか

[m.ts10806]

プログラムは書いたとおりにしか動かないので「なぜならないか」には「そう動くように書かれてないから」と答えることになります。

[teturousan]

重複したセルに色が全く塗られません。

[m.ts10806]

コードやエラーはマークダウンのcode機能を利用してご提示ください。
https://teratail.com/questions/238564

Answer 1

コード
``Sub Test1()
'=COUNTIF（範囲, 検索条件）
Dim i As Long
    For i = 1 To 100
        If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), _
            Sheets("Sheet1").Cells(i, 1)) Then
            Sheets("Sheet1").Cells(i, 1).Interior.ColorIndex = 6
        
        End If
    Next i
End Sub


![イメージ説明](a9b54c6471225117d704ccf867e57761.png)`

こんな感じになりました

Answer 2

どのようにうまくいかないのか不明ですが、（radames1000さんの回答の指摘がうまくいかない原因でしょう。）
とりあえず、最初に背景色を初期化しておいた方がいいのでは。

Sub Test1()

    Dim i As Long
    
    Sheets("Sheet1").Range("A1:A100").Interior.ColorIndex = 0 `
    
    For i = 1 To 100
    
    If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), Sheets("Sheet1").Cells(i, 1)) > 0 Then
    
        Sheets("Sheet1").Cells(i, 1).Interior.ColorIndex = 6
    
    End If
    Next i
End Sub

※

Comments

[radames1000]

背景色の初期化はSheet1です。

[hatena19]

そうでした。ご指摘ありがとうございます。
コード修正しておきます。

Answer 3

下記「> 1」が「> 0」の誤りです。

If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), Sheets("Sheet1").Cells(i, 1)) > 1 Then

Comments

[hatena19]

> 0 にしたらすべてのセルの背景色が変更されてしまいませんか。

[radames1000]

Sheet2の値と重複しないものは変更されないので大丈夫だと思います。

[hatena19]

Sheet2 と Sheet1 があるのを見落としてました。無意味なコメントすみませんでした。