excel中如何利用VBA批量替换单元格中某个字符的字体

Question

就是把图片中的C 字体改成 SJQY哪位大佬能提供程序吗，刚学什么也不会

Answer 1

Vba程序如下：
Sub myFont()
Application.ScreenUpdating = False
Dim i!, rC As Range
For Each rC In Selection
For i = 1 To Len(rC)
If i > Find("/", rC) Then
rC.Characters(i, 1).Font.ColorIndex = 16
rC.Characters(i, 1).Font.Italic = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Answer 2

参考代码：

Sub Demo
    Range("A1").Replace "C", "SJQY"
End Sub

A1 可以根据实际情况加以修改！

Answer 3

直接EXCEL的替换功能啊，或者把你用操作替换功能过程录制成宏就完了啊，然后再查看宏就有代码了。

Answer 4

ctrl +H替换就完成了简单方便，干嘛要用Vba,

Answer 5

你就可以接受现实生活中没有必要对别人来说没有任何意义