如何让单元格中某一个特定字符变颜色和加粗

jamieelmo · 发表于 2019-1-12 21:37

在excel的整个A列中，让单元格中某一个特定字符变颜色和加粗，其他内容不变
比如，如图，只需以下关键词变红色并加粗，其他字符不需要

需要特出显示的关键词有以下：
A/C
CONTRACT NO
CONTRACT NUMBER
N/A
NAC
NAME ACCOUNT
REF
RFA
S/C
SC
AMS
CC
COLLECT
CSS
DAR
DIH
DTHC
EIS
ENS
ESD
IHC
OTHC
PAYABLE
PP
PREPAID
PSS
THC
THL

ggmmlol · 发表于 2019-1-12 21:56

用VBA，正则表达式或者循环处理。
或者复制到WORD中，使用替换方法实现字体突出显示。

jamieelmo · 发表于 2019-1-12 21:59

ggmmlol 发表于 2019-1-12 21:56
用VBA，正则表达式或者循环处理。
或者复制到WORD中，使用替换方法实现字体突出显示。

数据太多，不可能逐一替换.
vba要怎样写

ggmmlol · 发表于 2019-1-12 22:20

ggmmlol · 发表于 2019-1-12 22:21

关键字突出显示.rar (16.29 KB, 下载次数: 148)

jamieelmo · 发表于 2019-1-13 21:59

ggmmlol 发表于 2019-1-12 22:20

但当我清空原本的，再次输入别的内容在该区域，字体已经变成红色，再运行一次vba就不可以了
可以再设置一下，不用每次都重新打开再运行

ggmmlol · 发表于 2019-1-13 22:05

Range("a1").Resize(r).Font.ColorIndex = xlNone

改成：

Range("a1").Resize(r).Font.Color = vbBlack

jamieelmo · 发表于 2019-1-13 22:13

ggmmlol 发表于 2019-1-13 22:05
Range("a1").Resize(r).Font.ColorIndex = xlNone

改成：

变回了黑色不能再次运行

ggmmlol · 发表于 2019-1-13 23:32

jamieelmo 发表于 2019-1-13 22:13
变回了黑色不能再次运行

Sub test()
DoEvents
Application.ScreenUpdating = False
With Range("C1").CurrentRegion
.Sort .Cells(1), xlDescending
ss = .Value
End With
s = ss(2, 1)
For i = 3 To UBound(ss)
s = s & "|" & ss(i, 1)
Next
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = s
r = Cells(Rows.Count, 1).End(xlUp).Row
If r = 1 Then r = 2
ss = Range("a1").Resize(r).Value
Range("a1").Resize(r).Font.Color = vbBlack
For i = 1 To r
If reg.test(ss(i, 1)) Then
Set mas = reg.Execute(ss(i, 1))
With Cells(i, 1)
For Each ma In mas
.Characters(ma.firstindex + 1, ma.Length).Font.Color = vbRed
Next
End With
End If
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 如何让单元格中某一个特定字符变颜色和加粗

评分

最新热点 /1