可以尝试使用以下代码:
ActiveSheet.AutoFilter.Sort.SortFields.Clear ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
其中,第一行代码用于清除排序字段,第二行代码则是添加新的排序字段,可以根据需要进行修改。同时,需要先确保筛选器已经打开并且所需的列已被筛选。