EXCEL标记重复数据
来源:百度知道 编辑:UC知道 时间:2024/07/06 18:23:35
例如"
A B C D
1 a d d c
2 b a c d
3 c b b a
4 d c a b
有没有办法我只要点击"a",它就自动把所有的"a"用相同颜色标记出来???
有人做过,好象要用宏.
望高手赐教..
er...不好意思..我不会宏这东东....能不能弄好发给我啊.大哥
A B C D
1 a d d c
2 b a c d
3 c b b a
4 d c a b
有没有办法我只要点击"a",它就自动把所有的"a"用相同颜色标记出来???
有人做过,好象要用宏.
望高手赐教..
er...不好意思..我不会宏这东东....能不能弄好发给我啊.大哥
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows().Font.ColorIndex = 0 '字体颜色全设为自动
x = ActiveCell.Value
For i = 1 To 4 '第i行,4可改为实际数据行数。
For j = 1 To 4 '第j列,可改为数据总列数。
If Cells(i, j) = x Then '如果等于活动单元格的值
Cells(i, j).Font.ColorIndex = 3 '颜色设为红色
End If
Next
Next
End Sub
ALT+F11,粘贴以上代码,ALT+F11返回工作表。
例:这些数据在A1:D4,选中A1:D4,格式,条件格式,公式,输入=(B1=INDIRECT(ADDRESS(CELL("row"),CELL("col"))))*(B1<>""),格式,设置颜色等等,注:选中一个单元格要按F9,如果不想按F9,可按ALT+F11,粘贴下列代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Calculate
End Sub
呵呵,咋发给你呢?什么都没留下,发晕