vba 中判断一列或一行中是否存在某值的语法！求高手指教

如题所述

第1个回答 2012-12-18

用find函数

语法
表达式.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, atchByte,
SearchFormat)
表达式一个代表 Range 对象的变量。
参数
名称必选/可选数据类型描述What必选Variant要搜索的数据。可为字符串或任意 Microsoft Excel 数据类型。After可选Variant表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格的位置。请注意：After
必须是区域中的单个单元格。要记住搜索是从该单元格之后开始的；直到此方法绕回到此单元格时，才对其进行搜索。如果不指定该参数，搜索将从区域的左上角的单元格之后开始。LookIn可选Variant信息类型。LookAt可选Variant可为以下 XlLookAt 常量之一：xlWhole 或
xlPart。SearchOrder可选Variant可为以下 XlSearchOrder 常量之一：xlByRows 或
xlByColumns。SearchDirection可选XlSearchDirection搜索的方向。MatchCase可选Variant如果为 True，则搜索区分大小写。默认值为 False。MatchByte可选Variant只在已经选择或安装了双字节语言支持时适用。如果为 True，则双字节字符只与双字节字符匹配。如果为 False，则双字节字符可与其对等的单字节字符匹配。SearchFormat可选Variant搜索的格式。本回答被提问者采纳

相似回答

vba怎么查找一列中是否有某个值答：Arr = Array(1, 2, 3, 4)Dim d As Object Set d = CreateObject("scripting.dictionary")Dim i As Integer For i = LBound(Arr) To UBound(Arr)d(Arr(i)) = ""Next i Dim R As Long R = Sheet1.Cells(65536, 1).End(xlUp).Row Dim x As Long Dim y For x = 1 To R ...

在excel中用VBA写代码,怎样判断某一指定列内容是否重复??答：c).End(3).Row For i = 1 To n a = Cells(i, c).Text If a <> "" Then If d.exists(a) Then MsgBox c & "列内容有重复！" Exit Sub Else d.Add a, "" End

vba 中如何查找某列的对应列中是否含有该值?答：Sub 判断()Dim i As Long Dim j As Long For j = 2 To Sheets("导入").Cells(65536, 2).End(xlUp).Row Sheets("导入").Cells(j, 30) = "错误"For i = 2 To Sheets("总表").Cells(65536, 3).End(xlUp).Row If Sheets("导入").Cells(j, 2) = Sheets("总表").Cells(i...

EXCEL VBA判断单元格是否包含某字符答：1.首先，看一下原始数据。A列是公司名称，我们要在B列判断A列的文本是不是包含“北京”这两个字。2.双击B2，输入公式：=FIND("北京",A2)B2单元格返回1，表示“北京”两个字在A2的文本出现的位置是从第一个字符开始。3.下拉B2的公式，返回结果如下图所示。其中返回的错误值是表示单元格文本中不...

在EXCEL中如何用VBA查找某特定单元格并返回该单元格的行和列值?答：第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing，语法如下：expression.Find(What, After, LookIn, LookAt, SearchOrder, Search...

excel vba 怎样判断一列中是否含有某字,比如说在第5列的第2行到第n...答：instr，like，regexp，find，mid 方法多了去了，这5个你随便挑一个了解下都能做出来，不建议第三个和第五个，第三个对新手来说比较高深，第五个不太适合查找东西，运算太慢

Excel VBA中if语句的用法答：…end if结构该结构用于单选择判断语句执行，具体用法看下面实例实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出”VBA教研室“ 程序： Sub 判断语句() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" Then ...

求vba代码:判断A1单元格内容是否在B列中存在,如果不存在在后面添加答：效果如下动态图：代码如下图：

...一列中当前输入单元格数据在另一列数据中是否存在,如果不存就提示...答：在change()事件中写判断就行了，在代码开始加一级判断，保证目标列为你指定的第一列就行了代码就没必要了吧 ByVal my As Range为什么不用target as range 用serstr=target.value（serstr=my.value）直接判断更省心循环可以用for each ... in...更简单些，你这种方法也没错 Private Sub ...

大家正在搜

vba 判断数组中是否存在某值 vba判断文件路径是否存在 vba怎么查找一个值是否存在 vba判断是否在范围内 vba中判断文件夹是否为空 vba判断文件存在 vba怎么判断文件存在 vba判断sheet存在 vba判断数组是否为空

vba 中判断一列或一行中 是否存在某值的语法！求高手指教

vba 中判断一列或一行中是否存在某值的语法！求高手指教