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

2024-11-22 14:54:13
推荐回答(5个)
回答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

回答2:

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

如果是每一个字:中,想改成粗体 红色 背景色 其他的字体等等 都可以这样实现的。

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

回答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换成你想转变的字符就行了,这个是 按你例子里的写的

回答4:

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

回答5:

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