如何按单元格文字颜色整理离散单元格？VBA代码修改需求

我看了你这段VBA代码的问题所在啦——你用Union把两列不连续的区域合并后直接排序，Excel的Sort对象处理不连续区域时会出问题，没法同时保持两列的行对应关系，自然达不到你要的效果。下面根据你的需求给出两种修改方案：

方案一：保持行对应关系排序（把含红色单元格的行整体排到上方） #

如果你的目标是让每行的两列数据保持对应，同时把任意一列是红色的行优先排到顶部，用这段代码：

Sub SortRowsByCellColor()
    Dim x As Integer, y As Integer
    ' 这里替换成你实际的x、y值，比如x=1代表起始行是第2行，y=1代表起始列是第2列
    x = 1
    y = 1
    
    Dim sht As Worksheet
    Dim sortRange As Range
    
    Set sht = ActiveSheet
    ' 定义包含目标两列的连续行范围（确保每行数据整体参与排序）
    Set sortRange = sht.Range(sht.Cells(x + 1, y + 1), sht.Cells(x + 5, y + 3))
    
    sht.Sort.SortFields.Clear
    ' 按第一目标列的颜色排序，红色单元格优先
    sht.Sort.SortFields.Add _
        Key:=sht.Range(sht.Cells(x + 1, y + 1), sht.Cells(x + 5, y + 1)), _
        SortOn:=xlSortOnCellColor, _
        Order:=xlDescending, _
        SortOrder:=xlSortNormal
    sht.Sort.SortFields(1).SortOnValue.Color = RGB(255, 0, 0)
    
    ' 可选：如果需要同时参考第二目标列的颜色，添加第二个排序条件
    sht.Sort.SortFields.Add _
        Key:=sht.Range(sht.Cells(x + 1, y + 3), sht.Cells(x + 5, y + 3)), _
        SortOn:=xlSortOnCellColor, _
        Order:=xlDescending, _
        SortOrder:=xlSortNormal
    sht.Sort.SortFields(2).SortOnValue.Color = RGB(255, 0, 0)
    
    ' 执行排序
    With sht.Sort
        .SetRange sortRange
        .Header = xlNo ' 数据无表头用xlNo，有表头请改为xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

关键修改点： #

• 不再使用Union合并不连续列，而是定义包含目标两列的连续行范围，确保排序时每行数据的对应关系不被破坏
• 明确指定排序的"关键列"，让Excel知道根据哪一列的颜色规则来排序
• 可添加多个排序条件，同时参考两列的颜色状态

方案二：两列独立排序（每列的红色单元格单独排到上方） #

如果你的需求是让两列各自独立排序，不考虑行的对应关系（比如第一列的红色单元格排到第一列顶部，第二列的红色单元格排到第二列顶部），用这段代码：

Sub SortEachColumnSeparately()
    Dim x As Integer, y As Integer
    x = 1
    y = 1
    
    Dim sht As Worksheet
    Dim col1Range As Range, col3Range As Range
    
    Set sht = ActiveSheet
    ' 分别定义两列的排序范围
    Set col1Range = sht.Range(sht.Cells(x + 1, y + 1), sht.Cells(x + 5, y + 1))
    Set col3Range = sht.Range(sht.Cells(x + 1, y + 3), sht.Cells(x + 5, y + 3))
    
    ' 单独排序第一列
    sht.Sort.SortFields.Clear
    sht.Sort.SortFields.Add _
        Key:=col1Range, _
        SortOn:=xlSortOnCellColor, _
        Order:=xlDescending, _
        SortOrder:=xlSortNormal
    sht.Sort.SortFields(1).SortOnValue.Color = RGB(255, 0, 0)
    With sht.Sort
        .SetRange col1Range
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 单独排序第三列
    sht.Sort.SortFields.Clear
    sht.Sort.SortFields.Add _
        Key:=col3Range, _
        SortOn:=xlSortOnCellColor, _
        Order:=xlDescending, _
        SortOrder:=xlSortNormal
    sht.Sort.SortFields(1).SortOnValue.Color = RGB(255, 0, 0)
    With sht.Sort
        .SetRange col3Range
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

你可以根据自己的实际需求选择对应的方案，替换代码里的x、y值即可适配你的数据位置。

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