首页 >> 网站分析 >> VBA实现Excel查找功能

VBA实现Excel查找功能

Catagory:网站分析, Date:2013年05月6日,Author: 工业品营销-贾定强

每个月查找业绩都是件非常头疼的事,需要导出成交记录来,然后对着电子商务客户信息台帐,一个电话一个电话的查找,一遍一遍的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的列筛选出来就能看到所有的成交询盘了。сращивание костей в Германиидетская палатка с туннелем

来源:工业品营销,原文地址:http://www.jiadingqiang.com/2658.html,欢迎分享本文,转载请保留出处!

Comments: 2 Responses to “ VBA实现Excel查找功能 ”
五月 7th, 2013
太平裂碑 说 Said:

vlookup就行了吧

[回复]

小强 回复:

vlookup只能查找单元格,不能替代ctrl+f的全部搜索功能

[回复]

你也来说几句:

名字*必填
邮箱*必填,不会被公开
网站
QQ群交流
最近文章
文章归档
  • 2017 (16)
  • 2016 (31)
  • 2015 (63)
  • 2014 (21)
  • 2013 (38)
  • 2012 (25)
  • 2011 (67)
  • 2010 (268)
  • 2009 (19)