这里写了一个VBA代码,你复制到VBA代码编辑窗口,然后选择你的A列数据,执行以下代码。
Sub 标色()
For Each a In Selection
k = k + 1
If a <> Cells(k + 1, 1) Then
GoTo 100
Else
a.Interior.ColorIndex = 4
Cells(k + 1, 1).Interior.ColorIndex = 4
End If
b = b + 1
If b Mod 2 = 0 Then
a.Interior.ColorIndex = 3
Cells(k + 1, 1).Interior.ColorIndex = 3
End If
100:
Next
End Sub
你可以在工作表中画一个图形然后指定这个标色宏,点击这个图形就可以直接执行宏代码,下面是我用这个标色宏代码执行后的效果。
怎么弄呀?可以说的详细点吗?
追答ke jia 六九五九八二二三九
还没,你会吗?不要辅助列那些的,像我说的那样重复值间隔使用颜色的
追答可以啊。QQ:一零七一七二四零零
文件发来