[[20180315193652]]　『同じ文字じゃなければセルを赤く。』（片岡）　ページの最後に飛ぶ

『同じ文字じゃなければセルを赤く。』（片岡）

Ａ１からＡ３０に文字が入力してあります。　
文字は決まっていません。
空白セルもあります。

同じ文字じゃなければ赤くするには？

桜　　　←　このセルを赤く
さくら　　　　
さくら

下のケースはどれも赤く
さくら　←　このセルを赤く
桜　 ←　このセルを赤く　　
さくら　←　このセルを赤く
桜　 ←　このセルを赤く　

セル１このみ入力ならこのままでＯＫです。
さくら　　

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

以下の場合は？

桜
さくら　　　　
さくら
桜
　
（マナ） 2018/03/15(木) 20:12

A1：A30までを選択後
条件付書式をクリック。
最下部の数式入力を選択し、
＝Countif（＄A1：A.30.A1＝1）
書式の文字列色を赤へ
（kawacchi） 2018/03/15(木) 20:49

見落としてた。

これでいいかと。
＝IF(or(Countif(＄A1：A30,A1＝1).Countif（＄A1：A30.A1＞1)))
（kawacchi） 2018/03/15(木) 21:13

 こんばんは
作ってみました。。。　＾＾

 Option Explicit
'**********************************************************
Sub main()
    Dim sh01 As Worksheet
    Dim i As Long, rr As Range, lastr As Long
    Set sh01 = ThisWorkbook.Worksheets("Sheet1")
    Set rr = sh01.UsedRange
    lastr = sh01.Cells(sh01.Rows.Count, 1).End(xlUp).Row
    For i = 1 To lastr
        If i = 1 Then
            If i = lastr Then
                Exit Sub
            End If
            If rr(i, 1) <> rr(i + 1, 1) Then
                rr(i, 1).Interior.ColorIndex = 3
            End If
        Else
            If rr(i, 1) <> rr(i + 1, 1) And rr(i, 1) <> rr(i - 1, 1) Then
                 rr(i, 1).Interior.ColorIndex = 3
            End If
        End If
    Next
End Sub
（隠居じーさん） 2018/03/15(木) 22:51

みなさん。

ありがとうございました。

意外に難しくて自分でもいろいろやってみます。

マナさん、その場合も全部赤くです。
（片岡） 2018/03/17(土) 14:02

では、以下の場合は？

桜
桜
桜
さくら　　　　
さくら
桜

ルールを箇条書きで説明できますか。

（マナ） 2018/03/17(土) 14:35

マナさん　ありがとうございます。

同じ文字に混じって1こだけ違うならならその文字が間違っていて
同じ文字と違う文字が2,3こづつだとどっちが間違っているのか
わからないのでどっちも赤くなるようにと思っていましたが、漠然とした
ルールだと気づかされました。

再度、検証してみます。

（片岡） 2018/03/17(土) 17:01

コメント返信：

[ 一覧(最新更新順) ]

[[20180315193652]] 『同じ文字じゃなければセルを赤く。』（片岡） ページの最後に飛ぶ

[[20180315193652]]　『同じ文字じゃなければセルを赤く。』（片岡）　ページの最後に飛ぶ