テキスト値に基づいたカラーセル

Excel列には、その行のカテゴリを表すテキスト値が含まれます。

各値の条件付き書式を手動で作成せずに、個別の値を持つすべてのセルを一意の色に書式設定する方法はありますか？

例：カテゴリがある場合bedroom, bedroom, bathroom, kitchen, living room、含むすべてのセルをbedroom特定の色、bathroom別の色などにする必要があります。

1. 書式設定する列を空のワークシートにコピーします。
2. 列を選択し、リボンの[データ]タブにある[データツール]パネルから[重複の削除]を選択します。
3. 値または文字列の一意のリストの右側に、数字の一意のリストを作成します。たとえば、6色のカテゴリがある場合、2番目の列は1〜6になります。これがルックアップテーブルです。
4. 新しい列でVLOOKUP、テキスト文字列を新しい色にマップするために使用します。
5. 新しい数値列に基づいて条件付き書式を適用します。

以下のスクリーンショットはExcel 2010のものですが、2007年と同じでなければなりません。

セルを選択して、 Conditional Formatting | Highlight Cells Rules | Text that Contains

更新：ワークシート全体に条件付き書式を適用するには、すべてのセルを選択してから条件付き書式を適用します。

^{（画像をクリックすると拡大します）}

必要なフォーマットを選択してください。

From：http : //www.mrexcel.com/forum/excel-questions/861678-highlighting-rows-random-colors-if-there-duplicates-one-column.html#post4185738

Sub ColourDuplicates()
Dim Rng As Range
Dim Cel As Range
Dim Cel2 As Range
Dim Colour As Long




Set Rng = Worksheets("Sheet1").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
Rng.Interior.ColorIndex = xlNone
Colour = 6
For Each Cel In Rng


If WorksheetFunction.CountIf(Rng, Cel) > 1 And Cel.Interior.ColorIndex = xlNone Then
Set Cel2 = Rng.Find(Cel.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchDirection:=xlNext)
    If Not Cel2 Is Nothing Then
        Firstaddress = Cel2.Address
        Do
        Cel.Interior.ColorIndex = Colour
        Cel2.Interior.ColorIndex = Colour
            Set Cel2 = Rng.FindNext(Cel2)

        Loop While Firstaddress <> Cel2.Address
    End If




Colour = Colour + 1


End If
Next


End Sub

条件付き書式を選択する自動色は、Microsoft Excelの機能ではありません。

ただし、カテゴリ列の値に基づいて行全体に個別に色を付けることができます。

1. 条件付き書式設定で新しい書式設定ルールを作成します。
2. 数式を使用して、フォーマットするセルを決定します。
3. 式：（=$B1="bedroom"カテゴリ列がBであると仮定）
4. フォーマットの設定（塗りつぶし色を使用）
5. ルールの書式設定をすべてのセルに適用する