在Excel中使用vba对具有特定背景颜色的区域中的行进行排序

Sub SortByColor()
    Dim rng As Range
    Dim cell As Range
    Dim sortRange As Range
    
    ' 设置要排序的区域范围
    Set rng = Range("A1:D10")
    
    ' 设置要筛选的背景颜色
    Dim targetColor As Long
    targetColor = RGB(255, 0, 0) ' 这里以红色为例
    
    ' 创建一个新的区域范围，用于存储具有特定背景颜色的行
    Set sortRange = Nothing
    
    ' 遍历每个单元格，检查其背景颜色是否与目标颜色匹配
    For Each cell In rng
        If cell.Interior.Color = targetColor Then
            If sortRange Is Nothing Then
                Set sortRange = cell.EntireRow
            Else
                Set sortRange = Union(sortRange, cell.EntireRow)
            End If
        End If
    Next cell
    
    ' 如果找到了具有特定背景颜色的行，则进行排序
    If Not sortRange Is Nothing Then
        sortRange.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
    End If
End Sub