数组拆分重新组合

李桥贵

麻烦老师一下，把数组中符合条件内容拆分出来重新组合成新数组，谢谢。
数组拆分.rar (15.06 KB, 下载次数: 13)

2024-10-9 00:22 上传

点击文件名下载附件

taller

taller

1. ' 使用筛选快速分表
   
2. Sub Macro1()
   
3.     Set sh = Sheets("全")
   
4.     Set r = sh.Range("$A$2:$F$10")
   
5.     r.AutoFilter Field:=3, Criteria1:="男"
   
6.     Set sht = Sheets.Add(After:=Sheets(Sheets.Count))
   
7.     sht.Name = "男"
   
8.     sh.UsedRange.Copy sht.[a1]
   
9.     Set rn = sht.Range("A3", sht.Range("A3").End(xlDown))
   
10.     rn.Formula = "=Row()-2"
    
11.     rn.Value = rn.Value
    
12.     r.AutoFilter Field:=3, Criteria1:="女"
    
13.     Set sht = Sheets.Add(After:=Sheets(Sheets.Count))
    
14.     sht.Name = "女"
    
15.     sh.UsedRange.Copy sht.[a1]
    
16.     Set rn = sht.Range("A3", sht.Range("A3").End(xlDown))
    
17.     rn.Formula = "=Row()-2"
    
18.     rn.Value = rn.Value
    
19.     r.AutoFilter
    
20. End Sub

复制代码

一招秒杀

Ctrl + T  把它们设置为数据表，点红色圈圈中那个过滤 可以让它只显示 你需要的性别，当然如果你需要 只复制你需要的数据到别的表，也可以把这个范围都选择复制，到另外的地方去粘贴，也就蛤会出现你过滤后的数据，而不是全部，点点鼠标，可视化解决，所见即所得，简单到死。

ykcbf1100

新写一个吧

附件供参考。。。

ykcbf1100

参与一下。。。