VBA实现Excel查找功能

1. 海外社媒客户开发工具【免费】了，帮你从GG/FB/Ins/谷歌地图上免费获取客户
2. WhatsApp 聊天记录保险：【99元/年】，聊天记录不怕丢。自带翻译、多开，号码抓取、群发
3. 外贸网站搭建、谷歌SEO、社媒运营、企业WhatsApp管理、外贸管理软件、AI应用，【联系我】

每个月查找业绩都是件非常头疼的事，需要导出成交记录来，然后对着电子商务客户信息台帐，一个电话一个电话的查找，一遍一遍的ctrl+f。由于信息随着时间的累积会越来越多，所以每月的ctrl+f的次数也越来越多。今天终于忍不了了，把vba重新看了看，写了个小程序来代劳，跟大家分享一下：

Sub Macro1()
Dim str
For Each cell In Range(“b1:b680”)
str = cell.Value
Set t = Sheet1.Cells.Find(str, lookat:=xlPart, MatchCase:=True)
If Not t Is Nothing Then
Cells(cell.Row, 3) = 1
End If
Next
End Sub

意思很简单，b1:b680是客户询盘的电话，每次取一个电话在sheet1中查找，如果查到了，就在其后面一列标1。最后只要把是1的列筛选出来就能看到所有的成交询盘了。

1. 海外社媒客户开发工具【免费】了，帮你从GG/FB/Ins/谷歌地图上免费获取客户
2. WhatsApp 聊天记录保险：【99元/年】，聊天记录不怕丢。自带翻译、多开，号码抓取、群发
3. 外贸网站搭建、谷歌SEO、社媒运营、企业WhatsApp管理、外贸管理软件、AI应用，【联系我】

微信扫一扫 或 点击链接联系我

仍有疑问，点击 链接，加个 微信 好友，一起交流。