如何把单元格的内容设置为数字（如何设置单元格内部分指定文本的大小和颜色）

Hello！大家好，很高兴又到了周五。

工作中在单元格内输入总结性文字时，如何突出部分关键字段呢？这是我遇到的一个问题。

表格本身并不具备这种功能，唯一可以实现的是对单元格内的所有内容调整格式。所以，我只能把文字写在不同的单元格，这样很麻烦。怎样实现一键操作，成了我的研究目标。

上面展示的效果是通过宏代码实现的，选择需要修改的单元格，点击宏执行按钮。

操作方式如下：

第一步：将文章下方的宏代码复制粘贴到开发工具（Visual Basic）里的Thisworkbook内。

第二步：点击开发工具插入按钮，选择相应的宏名称。

第三步：选择需要调整的单元格，点击按钮执行即可。

注意需要突出的文字位置必须在选择单元格的右侧，且字段间用“/”分隔。

如有疑问，欢迎留言！

点击关注，获取更多内容。

Sub Talk数据()

For Each rg In Selection

Wstr = Trim(rg.Offset(0, 1))

Fstr = Trim(rg)

For Each W In Split(Wstr, "/")

strIndex = 1

Do

WIndex = InStr(strIndex, Fstr, W)

If WIndex > 0 Then

With rg.Characters(Start:=WIndex, Length:=Len(W)).Font

.ColorIndex = 3

.Bold = True

.Size = 14

End With

strIndex = WIndex Len(W)

End If

Loop Until WIndex = 0

Next

Next

End Sub