excel中如何用交替颜色分类

发布网友 发布时间：2022-04-22 08:53

我来回答

共8个回答

热心网友 时间：2022-04-22 10:14

你截图也不带行号和列号，只能任我假设了。

假如变色数据在H列，且从第一行开始，选中H列，条件格式自定义公式1为：

=MOD(SUM(IF(MATCH(H$1:H1,H$1:H1,0)=ROW(H$1:H1),1,0)),2)

颜色设为*，同理，再设置一个自定义公式2为：=1-MOD(SUM(IF(MATCH(H$1:H1,H$1:H1,0)=ROW(H$1:H1),1,0)),2)

颜色设置绿色，确定即可。

注意，一般确认后，系统会自动添加引号，回过头来再修改一下就好了。

热心网友 时间：2022-04-22 11:32

用VBA代码来做，大致编写了一段，最后一个新值未做处理：

Sub test()

Dim i As Long

Dim iFirstFindRow As Long, iOtherFindRow As Long  '值第一次出现时的行号，  和新的值出现时的行号

Dim vFirstFind As Long  '记下出现的不同的数值

Dim bFirstColor As Boolean   '颜色交错标记

Const theColumn As Long = 2  '仅处理第2列的单元格

bFirstColor = True

iFirstFindRow = 1

iOtherFindRow = 0

vFirstFind = Cells(1, theColumn)    '第一行的格子的值

For i = 2 To GetLastRow()

If Cells(i, theColumn) <> vFirstFind Then   '如果有新值出现

iOtherFindRow = i

vFirstFind = Cells(i, theColumn)

End If

If iOtherFindRow > iFirstFindRow Then

'nColor = 65535  Yellow;  nColor = 5296274  Green

FillCells theColumn, iFirstFindRow, iOtherFindRow - 1, IIf(bFirstColor, 65535, 5296274)

bFirstColor = Not bFirstColor

iFirstFindRow = iOtherFindRow

End If

Next i

End Sub

'获取最后一行的行号

Function GetLastRow() As Long

GetLastRow = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlFormulas, SearchDirection:=xlPrevious).EntireRow.Row

End Function

'指定列的某些单元格填充颜色

Sub FillCells(nCol As Long, nRow1 As Long, nRow2 As Long, nColor As Long)

'nColor = 65535  Yellow;  nColor = 5296274  Green

Range(Cells(nRow1, nCol), Cells(nRow2, nCol)).Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = nColor

.TintAndShade = 0

.PatternTintAndShade = 0

End With

End Sub

执行宏 test 的结果如下：

热心网友 时间：2022-04-22 13:06

像图中这样？

开始——条件格式——新建规则——选第二个”只为包含以下内容的单元格设置格式“在这个界面中进行设置规则：单元格值，等于，12，往下点格式，选择图案，选颜色——确定。再定333，24，5的规则。

你试试看……

热心网友 时间：2022-04-22 14:58

热心网友 时间：2022-04-22 17:06

追答

点那个小三角——突出显示单元格规则——文本包含——输入你重复的数字——颜色换成想要的

热心网友 时间：2022-04-22 19:30

热心网友 时间：2022-04-22 22:12

热心网友 时间：2022-04-23 01:10