基于文本值的彩色单元

Excel列包含表示该行类别的文本值。

有没有办法将具有不同值的所有单元格格式化为唯一颜色，而无需为每个值手动创建条件格式？

示例：如果我有类别bedroom, bedroom, bathroom, kitchen, living room，我希望所有包含的单元格bedroom都是特定的颜色，bathroom不同的颜色等。

1. 将要格式化的列复制到空工作表。
2. 选择该列，然后从功能区“数据”选项卡上的“数据工具”面板中选择“删除重复项”。
3. 在您唯一的值或字符串列表的右侧，创建一个唯一的数字列表。例如，如果您有6个要着色的类别，则第二列可能只有1-6。这是你的查找表。
4. 在新列中，用于VLOOKUP将文本字符串映射到新颜色。
5. 根据新的数字列应用条件格式。

以下屏幕截图来自Excel 2010，但2007年应该是相同的。

选择单元格然后转到 Conditional Formatting | Highlight Cells Rules | Text that Contains

更新：要为整个工作表应用条件格式，请选择所有单元格，然后应用条件格式。

^{（点击图片放大）}

现在只需选择您想要的任何格式。

来自：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. 将规则格式应用于所有单元格