Excel 我需要应用多个数字过滤器。我怎样才能使它充满活力

[在此处输入图像描述][1]

需要多次应用数字过滤器，就像在名为AGE的列中一样

• 0到5之间的数字
• 数字在6到15之间
• 数字在16到30之间
• 数字在31到60之间
• 数字在61到90之间
• 数字在91到120之间
• 大于120

我必须多次应用数字过滤器，就像 “年龄”列中0到5之间的数字，需要在“年龄”列旁边的“年龄类别”列中键入“0到5”，但如果在“年龄”列0到5中应用了筛选，并且在该年龄段之间没有可用数据，则我需要VBA代码将其跳过，移动到下一个数字筛选器“6到15”如下所示，如果数据出现在6到15岁之间，则应在年龄类别栏下键入“6到15”

我的代码是：

activesheet.range("$A$1:AF2653").autofilter field: = 31, Criteria:=> = 0", Operator:=xlAnd, Criteria2: ="<=5"
  Range("AE1").select
  Activecell.offset(1,0).select

Do Until activecell.entirerow.hidden = false
  Activecell.offset(1,0).select
Loop

Activecell.offset(0,1).select
Activecell.value= "0 to 5"
Activecell.offset(0, -1).select
selection.end(xldown).select
activecell.offset(0,1).select
Range(selection, selection.end(xlup)).select
selection.filldown

activesheet.range（$A$1:AF2653”）。自动筛选字段：=31，条件：=>=0”，运算符：=xlAnd，条件2:=“