看你的这些内容保存位置是否有规则,比如我要将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
没有上图 也没有内容,只能给你举例说明了
如果是每一个字:中,想改成粗体 红色 背景色 其他的字体等等 都可以这样实现的。
ctrl+f打开查找对话框,如图去操作
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换成你想转变的字符就行了,这个是 按你例子里的写的
不是很明白你的意思,设定第一行之后,格式刷刷一下
要用代码,请先付费。
该死的百度,动不动就认证。