如何以连字符为分隔符，将Excel指定单元格内容分设为粗体和斜体？

单个单元格手动操作（适合少量数据） #

如果只有几个单元格需要处理，直接手动编辑即可：

• 双击目标单元格进入编辑模式，或选中单元格按F2
• 选中连字符左侧的所有文本，按Ctrl+B设置粗体
• 选中连字符右侧的所有文本，按Ctrl+I设置斜体

批量处理（VBA宏，适配D23:D52区域） #

批量处理这类格式，用VBA宏是最高效的方案，步骤如下：

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 点击顶部菜单栏「插入」→「模块」，新建空白模块
3. 将以下代码粘贴到模块中：

Sub FormatTextByHyphen()
    Dim rng As Range
    Dim cell As Range
    Dim hyphenPos As Integer
    Dim hyphenStr As String
    
    ' 定义连字符格式，根据你的实际文本修改（比如无空格则改成"-"）
    hyphenStr = " - "
    ' 设置目标单元格区域
    Set rng = ThisWorkbook.ActiveSheet.Range("D23:D52")
    
    For Each cell In rng
        If cell.Value <> "" Then
            hyphenPos = InStr(cell.Value, hyphenStr)
            If hyphenPos > 0 Then
                ' 左侧文本设为粗体
                cell.Characters(Start:=1, Length:=hyphenPos - 1).Font.Bold = True
                ' 右侧文本设为斜体
                cell.Characters(Start:=hyphenPos + Len(hyphenStr), Length:=Len(cell.Value) - (hyphenPos + Len(hyphenStr) - 1)).Font.Italic = True
            End If
        End If
    Next cell
End Sub

4. 调整代码中的hyphenStr参数：如果你的文本是word1-word2（无空格），就把" - "改成"-"
5. 返回Excel界面，按Alt+F8，选择FormatTextByHyphen宏，点击「执行」

注意事项 #

• 运行宏前建议备份文件，避免数据意外
• 代码只会识别单元格内第一个出现的目标连字符
• 保存文件时需选择.xlsm格式（启用宏的工作簿），否则宏会丢失

内容的提问来源于stack exchange，提问作者leatherface316