[已解决]提取内容后进行排序

heyiyuan

各位老师：
               请教各位老师，如附件中的效果是从筛选后得到的，使用公式函数如何做到？，这样就不用每次筛选再进行排序了，谢谢！

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-6-19 16:05

=IFERROR(INDEX(A:A,LARGE(IF($D$2:$D$16<>"",ROW($2:$16)),ROW(A1))),"")函数公式，3键结束

跳转到最佳答案楼层

yorkchenshunan

1. Sub main()
   
2. Dim arr, brr, n%, n1%, m%
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
5. Range("i1").CurrentRegion.ClearContents
   
6. For n = 1 To UBound(arr)
   
7.     If arr(n, 4) <> "" Then
   
8.         For m = 1 To UBound(arr, 2)
   
9.             brr(n1 + 1, m) = arr(n, m)
   
10.         Next
    
11.         n1 = n1 + 1
    
12.     End If
    
13. Next
    
14. Range("i1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
15. Range("i1").CurrentRegion.Sort Range("m1"), xlAscending, , , , , , xlYes
    
16. End Sub

复制代码

苏子龙

=IFERROR(INDEX(A:A,LARGE(IF($D$2:$D$16<>"",ROW($2:$16)),ROW(A1))),"")函数公式，3键结束