[已解决]分类后分别另存并排序

ms967967

要求将数据先按性别分类后再另存到结果中，并按年岁排序（升序）

说明：实际应用时数据的行数会很多，而且不固定。
效果：如结果

附件在楼下

最佳答案

月排行榜 / 总排行榜

su45

2014-8-13 00:10

试试咱做的：

分男女.zip (17.03 KB, 下载次数: 13)

2014-8-13 00:10 上传

点击文件名下载附件

跳转到最佳答案楼层

ms967967

book1.rar (7.47 KB, 下载次数: 7)

2014-8-12 20:37 上传

点击文件名下载附件

易安1

ms967967

易安1 发表于 2014-8-12 21:01

谢谢您的指点，我的数据较多，需要每天都更新一次，不想操作动作太多，最好是VBA，而且你的结果中没有按年岁排序。

易安1

1. 
   

复制代码

1. Sub test()
   
2.     With Sheets("数据").Columns("a:e")
   
3.         .AutoFilter Field:=3, Criteria1:="男"
   
4.         .Range("a1:e" & .Cells(Rows.Count).End(3).Row).Copy Sheets("结果").[a3]
   
5.         With Sheets("结果")
   
6.            .Range("a3:e" & .Cells(Rows.Count, 1).End(3).Row).Sort .[d3], xlAscending, Header:=xlYes
   
7.         End With
   
8.     End With
   
9.      With Sheets("数据").Columns("a:e")
   
10.         .AutoFilter Field:=3, Criteria1:="女"
    
11.         .Range("a1:e" & .Cells(Rows.Count).End(3).Row).Copy Sheets("结果").[G3]
    
12.          With Sheets("结果")
    
13.             .Range("g3:k" & .Cells(Rows.Count, "G").End(3).Row).Sort .[j3], xlAscending, Header:=xlYes
    
14.         End With
    
15.     End With
    
16. End Sub
    

复制代码

su45

试试咱做的：

分男女.zip (17.03 KB, 下载次数: 13)

2014-8-13 00:10 上传

点击文件名下载附件

su45

你悬赏的金币呢？