EXCEL怎么样可以将单元格不同列的标注相同颜色微红色的值全部提取到新的一列排序,写一段vba

在Excel中，你可以使用VBA脚本来创建一个新的列，并自动提取特定颜色范围的单元格值。以下是一个简单的VBA示例，它假设你想要提取的是红色字体的单元格值，并将其按字母顺序排序：

Sub ExtractAndSort()
    Dim ws As Worksheet ' 工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
    Dim sourceRange As Range ' 要查找的颜色范围
    Dim newCol As Range ' 新增的列
    Dim cellValue As Variant
    Dim startRow As Long
    
    ' 设置开始行
    startRow = 2 ' 假设从第二行开始检查颜色
    If Not ws.Cells(startRow, 1).Interior.Color = RGB(255, 0, 0) Then ' 如果不是红字，则跳过
        startRow = startRow + 1
        GoTo NextRow
    End If

    ' 定义新列并将红色值添加到新列
    Set newCol = ws.Columns(ws.Columns.Count).End(xlToLeft).Offset(0, 1)
    For Each cell In ws.Range(ws.Cells(startRow, 1), ws.Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeFormulasAndNumbers):
        If cell.Interior.Color = RGB(255, 0, 0) Then
            newCol.Cells(newCol.Cells.Count).End(xlUp).Offset(1, 0) = cell.Value
        End If
NextRow:
    Next cell

    ' 对新列进行排序
    Application.Sort Source:=newCol, Order1:=xlAscending, Header:=xlNo

    ' 可选：如果需要清空原始颜色范围，删除下面这行
    ' ws.Range(sourceRange.Address).ClearFormats
End Sub

在运行此代码前，记得修改`ws`变量为你想要操作的工作表名，然后按照需要调整开始行的位置、颜色以及是否清除原色范围。保存并启用宏后，这个脚本会执行上述操作。