|
いつも参考にさせて頂いています。
A列に部品番号が500行ほどあります。重複をチェックするために、EXCELの条件付書式でcountAが2以上になる場合文字色を赤に変えるように設定しました。
その後マクロでL列にA列の文字色が赤なら"1"を立てたいと思い以下の文を書きましたがうまくいきません。条件付書式の書式はVBAでは認識しないようでマニュアルで赤色にした文字の場合はちゃんと"1"が立ちます。A列の重複もマクロで文字色を変えれば良いと思うのですがそこまで知識がありません。ご指導よろしくお願いします。
Sub 重複チェック()
Dim i As Integer
Dim a As Integer
i = Range(Cells(2, 1), Cells(65536, 1).End(xlUp)).Rows.Count
For a = 2 To i
Cells(a, 12).Select
If Cells(a, 12).Offset(, -11).Font.ColorIndex = 3 Then
Cells(a, 12).Value = "1"
Else
End If
Next a
End Sub
|
|