Question

excel里，如何批量更改每个单元格特定字符的字体大小？

假如一个单元格里是ABCDEFGH，我需要让他的CD和FG字体变大显示，其他单元格相同~请问如何让批量修改？谢谢！
每个单元格的字符是不一样的·可能只能使用VBA了吧……

Answer 1

看你的这些内容保存位置是否有规则，比如我要将羡枝A列兄凯敏所有单元格字符串中第3个字符开始，共4个字符孙敬变成24磅，代码为：

    i = 1

    Do While Cells(i, 1) <> ""

        Cells(i, 1).Select

        Selection.Characters(Start:=3, Length:=3).Font.Size = 24

        i = i + 1

    Loop

追问

感谢回答，一般是固定格式的，比如我需要14001CJ00A-C148中第3、4个字符 第7、8个字符字体变为某个大小的·这种条件的

追答

你可以根据代码去修改，起点为start:=???,length:=???，同一个单元格可以多次设置。

追问

谢谢啊，主要是我从没用过VBA，所以麻烦详细跟我写下吧·再次感谢

追答

把你的要求说清楚，或者把文件发到cy@nwsuaf.edu.cn，同时把要求说清楚。

追问

已发信箱·谢谢

追答

已经搞好。

Answer 2

没耐腊有上图 也没有内容，只能给你举例说明了

如果是每一个字：中，想改成粗体 红色 背粗链景色 其他的字体等等 都可以这样实现的昌凳滑。

ctrl+f打开查找对话框，如图去操作

Answer 3

Sub vb改变字体()
For i = 1 To 20
For k = 1 To 50
If Cells(i, k) <> "并腔郑" Then

Set a = Range(Cells(i, k), Cells(i, k))

j1 = InStr(a, "C")
With a
.Font.FontStyle = "正常"
.Characters(Start:=j1, Length:=1).Font.Size = 18
End With
j2 = InStr(a, "D")
With a
.Font.FontStyle = "正常"
.Characters(Start:=j2, Length:=1).Font.Size = 18
End With

j3 = InStr(a, "F")
With a
.Font.FontStyle = "正常"
.Characters(Start:=j3, Length:=1).Font.Size = 18
End With
j4 = InStr(a, "G")
With a
.Font.FontStyle = "正常"
.Characters(Start:=j4, Length:=1).Font.Size = 18
End With
End If
Next
Next
End Sub
------------------------------分割线------------------

把instr（“”）里的CDFG换成你想转圆轮变的字符绝颂就行了，这个是 按你例子里的写的

Answer 4

不是很明白你的意思，设定第一行之后，格式刷刷一下

Answer 5

要用代码，请先付费。
该死的百度，动不动就认证。