原创投稿
  1. 爱玩数码首页
  2. 投稿

vb模糊查询like的用法（VBA中字典中Like查询的应用）

爱玩数码编辑 • • 投稿 • 阅读 118

今日继续和大家分享VBA编程中常用的常用”积木”过程代码。这些内容大多是我的经验的记录，来源于我多年的经验。最近代码多是出自”VBA数组与字典解决方案”教程，有一些朋友反映分享的内容不能很好的理解，可以参考这套资料的内容进行研读。今日分享的是第285期。

vb模糊查询like的用法（VBA中字典中Like查询的应用）

VBA过程代码285：在数组中利用模糊查询，求出值放到字典中并回填

Sub MyNZ ()

Sheets(“57”).Select

myarr = Sheets(“57”).Range(“A2:A” & Cells(Rows.Count, 1).End(xlUp).Row) ‘将数据放到数组中

Set mydic = CreateObject(“Scripting.Dictionary”) ‘创建字典

For i = 1 To UBound(myarr)

If Not myarr(i, 1) Like “*北京*” Then

‘If myarr(i, 1) Like “*北京*” Then ‘此处是模糊查询包含的方法

mydic(myarr(i, 1)) = “” ‘赋值给字典

End If

Next

‘清空数据，填入抬头，回填数据

[e:e].Clear

[e1] = “不含北京的省”

Range(“E2”).Resize(mydic.Count, 1) = Application.Transpose(mydic.keys) ‘

Set mydic = Nothing

End Sub

代码讲解:上述代码先把数据放到数组myarr中,然后在数组中建立1 To UBound(myarr)循环,利用一个判断语句，将不含北京的省份放到字典中,并排重,最后回填数据.

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，请发送邮件至87172970@qq.com举报，一经查实，本站将立刻删除。

赞 (0)
爱玩数码编辑爱玩数码编辑管理员
0 0
« 上一篇 2023年10月23日 15:35:00
下一篇 » 2023年10月23日 15:41:19

相关推荐

发表评论

登录后才能评论