使用VBA代码添加句子的自定义格式单元格

Sub AddCustomFormat()
    Dim sentenceRange As Range
    Dim formatRange As Range
    
    '设置要添加自定义格式的句子所在的单元格范围
    Set sentenceRange = Range("A1:A10")
    
    '设置自定义格式的样式
    Set formatRange = Range("B1:B10")
    formatRange.Font.Bold = True
    formatRange.Font.Color = RGB(255, 0, 0)
    formatRange.Font.Italic = True
    
    '遍历每个单元格并应用自定义格式
    For Each cell In sentenceRange
        cell.Offset(0, 1).Value = cell.Value
        cell.Offset(0, 1).Font.Bold = formatRange.Font.Bold
        cell.Offset(0, 1).Font.Color = formatRange.Font.Color
        cell.Offset(0, 1).Font.Italic = formatRange.Font.Italic
    Next cell
    
    '清空原始单元格内容
    sentenceRange.ClearContents
End Sub