先看下初级表格,数据不多,但是和做大量数据的方法一样;然后就是要将处理的数据选中(整行,整列,整个表格,部分单元格均可)。
然后点击左上角菜单,点击格式,下的条件格式,如图。
弹出条件格式窗口,选择单元格数值,条件按自己需要来选择,这里以等于为例子,后面填写条件值,如上海。
然后就是继续设置参数,在条件格式窗口中点击格式,弹出单元格格式窗口,设置条件安装自己表格中的具体情况设置,如果是数值就选择数字,文本就选择文本,这里以文本为例子,如图。
设置好数字类型后,还可以设置单元格要标红的颜色,如图中设置的红色。
设置好大体样式后,条件格式窗口样式,如图。
最后,单击确定即可,最终效果比较明显,更加利于识别,区分。
如果要求是单个文本,需要有VBA了。这种函数跟 条件格式是达不到的。
VBA 函数如下
Sub Macro1()
For i = 1 To 14
leng = Len(Cells(5, i).Text) - 1
For k = 1 To 14
If Range("A1").Text = Mid(Range("e" & i), k, 1) Then
abc = Mid(Range("e" & i), k, 1)
Cells(i, 5).Characters(Start:=k, Length:=1).Font.ColorIndex = 33
End If
Next
Next
End Sub
效果 如下
方法一、条件格式:
选择这一列,点开始选项卡--条件格式--突出显示单元格规则--重复值。即可快速标示。
方法二、数据有效性
选择这一列,点数据--数据验证--数据验证--设置选项卡--允许那里选择自定义,公式输入:
=COUNTIF($A:$A,A1)=1。确定
接下来,点数据验证--圈释无效数据。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Range("b:b").Font.ColorIndex = xlAutomatic
L = Len(Cells(2, 1))
For r = 2 To Range("B65536").End(xlUp).Row
s = 0
For i = 1 To Len(Cells(r, 2)) - L + 1
If Mid(Cells(r, 2), i, L) = Cells(2, 1) Then
s = i
Exit For
End If
Next
If s > 0 Then Cells(r, 2).Characters(Start:=s, Length:=L).Font.Color = RGB(255, 0, 0)
Next
End Sub
试试替换吧,word可以支持格式的替换,wps应该也可吧。没用过
满意 请采纳噢~