WPS单元格中如何分别设置中英字体为不同字号

问题的提出

早上，有一位英语老师需要把单元格中的英文和中文设置成不同的字体。问题如下：

李老师，我有一个Excel表格，里面的单元格都是前半部分英文、后半部分中文，一个单元格里同时有英文字符和中文字符。我想排版时把英文字体设为12号，中文字体设为10号，这样排版更美观，也能突出英文。请问该怎么实现统一处理？有没有可以直接粘贴运行的代码，或者其他简便方法？我平时都是先把整个表格统一设置成10号，然后再逐个单元格手动选，把中文设为10号，一个个处理实在太慢了，想求一个高效的解决办法。

所需要设置的表格如下所示。

以往他设置的方法是每一个单元格中的英文和中文分别手动设置字号，不仅速度慢，而且容易出错，于是他想找一种可以批量操作的办法。

问题解决

这种批量设置英文字号的思路是选中所有英文字体，再设置字号。于是，我想到使用VBA代码来实现。

首先，创建用于匹配英文单词的正则表达式 \b[A-Za-z]+\b，并将查找范围设定为当前工作表的已使用区域（ActiveSheet.UsedRange）。随后，通过 For 循环遍历区域内每个单元格，利用正则表达式检索其中的英文单词，并将匹配到的单词格式调整为：字号 12、加粗，同时通过修改 RGB 参数（如 RGB(0, 102, 204)）来设定其字体颜色。

设置完成后，将会弹窗显示：已设置完成。

Sub SetEnglishWordsFontByRegex()
    Dim rng As Range, cell As Range
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    
    ' 创建正则表达式
    Set regex = CreateObject("VBScript.RegExp")
    With regex
        .Global = True
        .IgnoreCase = True
        .Pattern = "\b[A-Za-z]+\b"  ' 匹配整个英文单词（边界）
    End With
    
    Application.ScreenUpdating = False
    
    Set rng =  ActiveSheet.UsedRange
    
    For Each cell In rng
        If Not IsEmpty(cell.Value) And VarType(cell.Value) = vbString Then
            Set matches = regex.Execute(cell.Value)
            
            For Each match In matches
                ' 设置每个匹配到的英文单词的字号
                cell.Characters(match.FirstIndex + 1, match.Length).Font.Size = 12
                cell.Characters(match.FirstIndex + 1, match.Length).Font.Color = RGB(0, 102, 204)
                cell.Characters(match.FirstIndex + 1, match.Length).Font.Bold = True
            Next match
        End If
    Next cell
    
    Application.ScreenUpdating = True
    MsgBox "已完成设置", vbInformation
    
    Set regex = Nothing
End Sub