vba根据字体为红色进行筛选

你可以使用以下代码来根据字体颜色为红色进行筛选：

Sub FilterByRedFont()
    Dim cell As Range
    ActiveSheet.Range("A1").AutoFilter '清除所有筛选
    For Each cell In ActiveSheet.UsedRange.Cells '遍历所有单元格
        If cell.Font.ColorIndex = 3 Then '判断颜色是否为红色
            cell.EntireRow.Hidden = False '显示该行
        Else
            cell.EntireRow.Hidden = True '隐藏该行
        End If
    Next cell
    ActiveSheet.Range("A1").AutoFilter Field:=1, VisibleDropDown:=True '筛选第一列
End Sub

在这个例子中，我们将遍历单元格并检查字体颜色是否为红色，如果是，则显示该行，否则隐藏该行。最后，我们将在第一列上应用筛选。

相关问题

VBA筛选前兩位為60的數字

你可以使用 VBA 中的 Left 函数来获取一个字符串的前几个字符，然后使用 If 语句来判断是否为 60。以下是一个示例代码：

Sub FilterNumbers()
    Dim cell As Range
    For Each cell In Range("A1:A10") ' 假设要筛选的数据在 A1:A10 中
        If Left(cell.Value, 2) = "60" Then ' 判断前两位是否为 "60"
            ' 如果是，则执行你想要的操作，比如将该行标记为红色或将其复制到另一个位置等等
            cell.EntireRow.Font.Color = vbRed ' 将该行字体颜色标记为红色
        End If
    Next cell
End Sub

你需要根据实际情况修改代码中的范围和操作。