如何在拆分单元格内容至新工作簿时保留字体格式（含粗体）

问题说明 #

需要选中包含混合格式（如局部粗体）的单元格，将文本按. 分隔符拆分到新工作簿的单独行，同时完整保留原文本的字体格式。现有VBA代码仅通过单元格值拆分，无法识别单元格内的局部格式，导致拆分后要么全部文本变为粗体，要么完全丢失粗体格式。

修改后的VBA代码 #

Sub SplitWithFormat()
    Dim InputData As Range
    Dim NewBook As Workbook
    Dim shnew As Worksheet
    Dim cell As Range
    Dim startPos As Integer, endPos As Integer
    Dim currentRow As Integer
    Dim i As Integer, j As Integer
    
    ' 选择目标单元格范围
    Set InputData = Application.InputBox("选择要拆分的单元格范围:", "选择范围", Selection.Address, Type:=8)
    
    ' 创建新工作簿和工作表
    Set NewBook = Workbooks.Add
    Set shnew = NewBook.Worksheets(1)
    currentRow = 1
    
    ' 遍历每个选中的单元格
    For Each cell In InputData
        startPos = 1
        ' 循环查找分隔符". "
        Do
            endPos = InStr(startPos, cell.Value, ". ")
            If endPos = 0 Then endPos = Len(cell.Value) + 1
            
            ' 复制拆分出的文本及格式到新单元格
            shnew.Cells(currentRow, 1).Value = Mid(cell.Value, startPos, endPos - startPos)
            ' 逐字符复制格式
            For j = 1 To Len(shnew.Cells(currentRow, 1).Value)
                With shnew.Cells(currentRow, 1).Characters(j, 1).Font
                    .Bold = cell.Characters(startPos + j - 1, 1).Font.Bold
                    .Italic = cell.Characters(startPos + j - 1, 1).Font.Italic
                    .Size = cell.Characters(startPos + j - 1, 1).Font.Size
                    .Color = cell.Characters(startPos + j - 1, 1).Font.Color
                    ' 可根据需要添加更多格式属性
                End With
            Next j
            
            currentRow = currentRow + 1
            startPos = endPos + 2 ' 跳过分隔符". "
        Loop While endPos <= Len(cell.Value)
    Next cell
    
    ' 自动调整列宽
    shnew.Columns(1).AutoFit
End Sub

代码核心逻辑 #

1. 不再直接拆分单元格值为数组，而是通过InStr逐段定位分隔符位置，拆分出每一段文本。
2. 利用Excel的Characters对象，逐字符复制原单元格对应位置的格式（包括粗体、斜体、字号、颜色等）到新单元格的对应字符上，确保局部格式完全保留。
3. 遍历所有选中单元格，处理完成后自动调整新工作表的列宽，提升可读性。

效果对比 #

• 示例输入：单元格内包含混合格式文本，如"1. 普通文本 2. 粗体文本 3. 普通文本"（其中"粗体文本"为粗体）
• 原代码输出：拆分后所有行要么全粗体，要么无粗体
• 修改后输出：拆分后的每一行文本保留原对应部分的格式，第二行"粗体文本"仍为粗体，其余行保持普通格式

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