发布网友 发布时间:2022-04-23 16:51
共4个回答
热心网友 时间:2023-07-11 15:31
excel实现不了你的功能,要用VBA
把下面的代码放到对应的工作表中
Sub 筛选()
Dim arr()
Dim r As Integer
Dim i As Integer
Dim n As Integer
n = 1
ReDim arr(1 To 10000)
r = Range("A65536").End(xlUp).Row
For i = 2 To r
If Range("B" & i).Font.Color = vbRed Then
'vbRed是红色
arr(n) = Range("C" & i)
n = n + 1
End If
Next
ReDim Preserve arr(1 To n - 1)
Range("A1:C" & r).AutoFilter Field:=3, Criteria1:=arr, Operator:=xlFilterValues
End Sub
热心网友 时间:2023-07-11 15:31
横栏上面有个数据,然后在数据里面选择排序,点开排序里面有一项“排序依据”点开选择里面的“字体颜色选项”;然后“次序”选择红色,“次序”后面那个选项选择“在顶端”就可以了,最后点击确定!
操作如下图所示!
热心网友 时间:2023-07-11 15:32
Excel让小组成员名字标红的小组都排在前面。
这个用VBA代码处理更好,按Alt+F11组合键打开VBA编辑器,再“工程-VBAPoject”列表框中找到对应工作簿的对应工作表,双击打开右侧的代码框,将代码放入进行,按F5执行。
如果标红的都是组长,那么还可以用技巧和简单公式处理后再筛选,但是标红的位置多种,如果用技巧和公式的话,就需要用到宏表函数,步骤繁杂。
热心网友 时间:2023-07-11 15:33
首先选中姓名这一列,点击排序和筛选中的自定义排序,主要关键词选择姓名,排序依据选择字体颜色,次序选择红色,最右面下拉栏选择在顶端,即可完成。