求助:EXCEL中如何让一行数中相同的数值底色变成一样?

发布网友发布时间：2022-05-14 09:18

共3个回答

热心网友时间：2023-10-12 17:00

亲，2003版的话，只有通过VBA编程解决了。

如下图，请现在A列将各种底色都定义好，罗列出来。以便后续按此顺序依次填充重复值。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

测试结果和代码如下。

Sub ys()
Dim d, k
Set d = CreateObject("Scripting.Dictionary")
Dim rg As Range
Dim c, n As Long
c = Cells(2, Columns.Count).End(xlToLeft).Column
For Each rg In Range("B2").Resize(1, c - 1)
    d(rg.Value) = d(rg.Value) + 1
Next
For Each k In d.keys
    If d(k) > 1 Then n = n + 1: d(k) = n Else d(k) = 0
Next
For Each rg In Range("B2").Resize(1, c - 1)
    If d(rg.Value) > 0 Then rg.Interior.Color = Cells(d(rg.Value), "A").Interior.Color
Next
Set d = Nothing
End Sub

热心网友时间：2023-10-12 17:01

选择第一行 ctrl+f 查找内容直接输入你要打底纹的数字------格式就可以根据你的要求改变格式颜色等

热心网友时间：2023-10-12 17:01

如果是2007版以上的在条件格式里有色阶功能

追问如果是2003有办法吗？我用条件格式，只能做到相同的数字是一个底纹，所有只出现一次的数字为无色。
颜色交替出现也可以的，有办法吗？