vBA查找的四种方法

用Find方法即可:如在ABC.xls工作簿的Sheet1工作表中查找“ABCDE” set Rng=Workbooks("ABC.xls").sheet1.cell.Find("ABCD",,,2) 如果找到,Rng 就是找到的单元格,如果没找到.Rng为空值 Nothing

用FIND函数!

在F1中输入=VLOOKUP(E1,A:B,2,) 下拉填充.

优化算法,尽量减少采用VBA代码,增加EXCEL自带函数,其处理速度比VBA速度快.减少不必要的循环.尽量采用函数模块化等办法.

1、使用like + 通配符:? 代替一个字节; * 表示多个字节;举个简单的例子:if cells(1,1).value like "苹果*" 表示判断单元格a1的值是否是以“苹果”开头,后面还可以有其他汉字或字符 if cells(1,1).value like "*苹果*" 表示判断 a1的里面的内容为 包含苹果俩字 [a-d]* 表示a-d开头的字符串 等等;2、正则表达式,这个用起来很nice,但是比较复杂一点,我就不介绍了,上面够你用了,如果需要你去百度下,很多地方都有介绍 再配合你需要的查找功能进行条件循环遍历查找即可(如果你懂vba的话).

Private Sub CommandButton1_Click() Dim co1, co2, co3, co4 As Integer co1 = Range("A3") co2 = Range("d3") co3 = Range("e3") co4 = Range("f3") Dim a, b, c, r As Integer r = Range("A65536").End(xlUp).Row c = 0 For a = 1 To r If

答:Sub ColorSettings() Dim C As Range Dim ComRng As Range Dim FirstAddress As String Dim FindStr As String FindStr = InputBox("请输入查找的名称", "提示") Set C = ActiveSheet.UsedRange With C Set C = .Find(what:=FindStr

Sub Macro1()Dim xRng As Range, FirstRng As RangeIf Left(Range("A1"), 3) = "D1[" ThenSet FirstRng = Range("A1")ElseSet FirstRng = Cells.Find("D1[")End IfSet xRng = Cells.Find("D1[", FirstRng)If xRng Is Nothing ThenMsgBox

为什么非要用VBA呢 用条件格式不就可以了吗? 例如L1,新建规则,选择使用公式设置单元格格式,公式=countif(L:L,L1)>1,设置好符合条件的填充色 L:L根据实际情况选择范围就可以了

sub macro1()dim xrng as range, firstrng as rangeif left(range("a1"), 3) = "d1[" thenset firstrng = range("a1")elseset firstrng = cells.find("d1[")end ifset xrng = cells.find("d1[", firstrng)if xrng is nothing thenmsgbox "没有了"elsemsgbox xrng.rowend ifend sub

相关文档

vba 查找指定内容
vba find函数
vba find方法详细说明
vba vlookup
获取数据的调查方法
vba实现查找功能
vbafind的使用方法
excel满足2个条件查找
电脑版