请教，自动筛选出的结果如何赋值给数组？

水和米

问题如图：

不晓得大家有没有相对最优的赋值代码呢？感谢各位了~
自动筛选结果赋值给数组.rar (7.99 KB, 下载次数: 15)

2019-12-17 18:13 上传

点击文件名下载附件

abc123281

既然你知道数组   那就不需要筛选了
用代码筛选直接把筛选结果写入数组即可   但不知道你写入数组后要干什么

格物郅知

初学，只会循环和IF，详见附件。

水和米

abc123281 发表于 2019-12-17 19:06
既然你知道数组   那就不需要筛选了
用代码筛选直接把筛选结果写入数组即可   但不知道你写入数组后要干什 ...

因为听说过一种说法，以微软的实力，系统自带的筛选是效率最高的，用for循环加if是可以最终实现，但明明有自来水可以接水，那为什么我们还要另外挖井呢，所以才想问问大神们是不是可以直接赋值

abc123281

呵呵  原来是这样啊  那你就用系统自带的筛选吧

asdfwgd

水和米 发表于 2019-12-18 07:09
因为听说过一种说法，以微软的实力，系统自带的筛选是效率最高的，用for循环加if是可以最终实现，但明明 ...

大佬  问题解决了吗？  我这会也遇到这个问题了。  自动筛选后的值怎么弄成数组  。

水和米

asdfwgd 发表于 2022-9-7 07:52
大佬  问题解决了吗？  我这会也遇到这个问题了。  自动筛选后的值怎么弄成数组  。

自动筛选结果赋值给数组.rar (14.97 KB, 下载次数: 11)

2022-9-7 13:30 上传

点击文件名下载附件

1. Sub test()
   
2.     Dim n&, arr
   
3.     n = Cells(Rows.Count, 1).End(3).Row
   
4.     Range("A1").Resize(n, 2).AutoFilter Field:=1, Criteria1:="红"
   
5.     n = Cells(Rows.Count, 1).End(3).Row
   
6.     If n = 1 Then Exit Sub
   
7.     Range("A1").Resize(n, 2).Copy
   
8.     With Sheet2
   
9.         .Range("A1").Resize(n, 2).PasteSpecial Paste:=xlPasteValues
   
10.         n = .Cells(.Rows.Count, 1).End(3).Row
    
11.         arr = .Range("A1").Resize(n, 2).Value
    
12.         .Cells.ClearContents
    
13.     End With
    
14.     AutoFilterMode = False
    
15.     Range("E1").Resize(n, 2) = arr
    
16. End Sub

复制代码