能把筛选出来的结果直接赋值给一个新数组

mfk1288 · 发表于 2018-10-11 22:00

本帖最后由 mfk1288 于 2018-10-11 22:13 编辑

ActiveSheet.Range("$A$4:$P$190").AutoFilter Field:=10, Criteria1:="上海"

以上这句是筛选出某个字段里=“上海”的行，总共筛选出不连续的4行记录。能否直接把这4行记录直接赋值给一个数组arr,请问这个想法可以实行吗？

lsc900707 · 发表于 2018-10-11 22:04

可以不用筛选，直接查询赋值给新数组的。怎么不上传个附件呢？

hdbk · 发表于 2018-10-11 22:09

直接将所有数据赋值给数组，然后从数组中按照条件跑出要的结果就行，如果要在符合条件的数据基础上再出其他结果，就再给其他条件。最后输出最终结果。

mfk1288 · 发表于 2018-10-11 22:16

lsc900707 发表于 2018-10-11 22:04
可以不用筛选，直接查询赋值给新数组的。怎么不上传个附件呢？

已上传附件，不用筛选，那可能就要用循环或sql了，现在只是想看一下筛选出来的结果能否象sql那样，直接赋值到数组，谢谢！

abc123281 · 发表于 2018-10-11 22:35

工作簿123.rar (9.34 KB, 下载次数: 90)

mfk1288 · 发表于 2018-10-11 22:43

abc123281 发表于 2018-10-11 22:35

首先先谢谢你的回答，但你的这是用循环配对条件，不是用筛选出的结果直接赋给数组。达不到我想要的要求。谢谢！

abc123281 · 发表于 2018-10-11 23:06

哦是那样啊那我只有表示道歉了你另等高明吧

Q526753064 · 发表于 2018-10-12 01:35

可以把筛选的结果复制空白的地方，然后再=arr

932789750 · 发表于 2018-10-12 07:34

Dim cb As New DataObject, arr
Range("A2:A13").Copy
cb.GetFromClipboard
arr = Split(cb.GetText, vbCrLf)

复制代码

上面的代码针对于你文档中的内容，把它们和你那句代码放一起。使用前需引入Microsoft Forms 2.0 Object Library。你添加个窗体模块就引入了，之后删除就好了。还有更简便的方法吗？期待每个人的留言...

mfk1288 · 发表于 2018-10-12 16:08

932789750 发表于 2018-10-12 07:34
上面的代码针对于你文档中的内容，把它们和你那句代码放一起。使用前需引入Microsoft Forms 2.0 Object L ...

谢谢指导，我学习试一下，非常感谢～

		自动登录	找回密码
密码			免费注册

[求助] 能把筛选出来的结果直接赋值给一个新数组

最新热点 /1