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

2024-11-02 03:53:20

推荐回答（5个）

回答（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

回答（2）：

参考代码：

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

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

回答（3）：

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

回答（4）：

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

回答（5）：

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