Excel单元格列表排序时保留原有个性化格式的VBA解决方案咨询

• 核心逻辑：将单元格内容与专属格式做唯一绑定，避免排序后格式与内容匹配错位，你之前的代码仅存储了格式数组，没有和对应内容做关联，所以排序后无法正确回填。
• 具体实现步骤：
  1. 排序前新增临时辅助列，给每个待排序的行分配唯一ID，将ID与该行的所有格式属性绑定存储
  2. 执行正常的单元格值排序操作，排序时要将临时辅助列一起纳入排序范围，保证ID跟随对应内容移动
  3. 遍历排序后的区域，通过ID匹配预存的格式数据，逐一回填格式
  4. 最后删除临时辅助列即可，不会影响原有表格结构

首先在VBA模块最顶部定义存储格式的结构体，可按需新增你需要的其他格式属性：

Type CellFormatInfo
    CellValue As Variant
    StrikeThrough As Boolean
    FontColor As Long ' 可扩展字体颜色、背景色、字号、边框等其他格式
    InteriorColor As Long
End Type

Sub SortWithPresetFormat()
    Dim ws As Worksheet
    Dim targetRng As Range
    Dim formatArr() As CellFormatInfo
    Dim i As Long, tempCol As Long, currentId As Long
    
    ' 替换为你实际的工作表和待排序区域
    Set ws = ThisWorkbook.Worksheets("Test")
    Set targetRng = ws.Range("FormattedCells")
    ' 临时辅助列设置在待排序区域右侧，不占用原有内容区域
    tempCol = targetRng.Column + targetRng.Columns.Count
    
    ' 第一步：预存所有单元格的内容与对应格式
    ReDim formatArr(1 To targetRng.Rows.Count)
    For i = 1 To targetRng.Rows.Count
        formatArr(i).CellValue = targetRng.Cells(i, 1).Value
        formatArr(i).StrikeThrough = targetRng.Cells(i, 1).Font.StrikeThrough
        formatArr(i).FontColor = targetRng.Cells(i, 1).Font.Color
        formatArr(i).InteriorColor = targetRng.Cells(i, 1).Interior.Color
        ' 写入唯一ID到临时列
        ws.Cells(targetRng.Row + i - 1, tempCol).Value = i
    Next i
    
    ' 第二步：执行排序，临时辅助列共同参与排序保证ID跟随对应内容
    ws.Range(targetRng, ws.Cells(targetRng.Row + targetRng.Rows.Count - 1, tempCol)).Sort _
        Key1:=targetRng.Columns(1), Order1:=xlAscending, Header:=xlNo ' 可自行调整排序规则
    
    ' 第三步：按ID匹配回填格式
    For i = 1 To targetRng.Rows.Count
        currentId = ws.Cells(targetRng.Row + i - 1, tempCol).Value
        targetRng.Cells(i, 1).Font.StrikeThrough = formatArr(currentId).StrikeThrough
        targetRng.Cells(i, 1).Font.Color = formatArr(currentId).FontColor
        targetRng.Cells(i, 1).Interior.Color = formatArr(currentId).InteriorColor
    Next i
    
    ' 第四步：删除临时辅助列，还原表格结构
    ws.Columns(tempCol).Delete
End Sub

• 如果待排序区域存在重复值，该方案通过唯一ID匹配不会出现格式错位问题，稳定性远高于直接匹配单元格内容
• 你可以根据实际需求扩展CellFormatInfo结构体的属性，比如加粗、斜体、字号、边框样式等，只需要在预存和回填步骤对应添加属性赋值逻辑即可
• 排序规则可自行修改Sort方法的参数，支持多列排序、降序、带表头等场景，只要保证临时辅助列始终和待排序区域一起参与排序即可

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