在VBA中引用查找中的单元格
在VBA中，可以使用Range对象的Find方法来引用查找中的单元格。Find方法可以在指定的范围内搜索指定的值，并返回一个Range对象，该对象表示找到的第一个匹配项。
Find方法的语法如下：
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)参数说明：
- What：要查找的内容，可以是一个字符串、一个数字、一个日期或一个单元格引用。
- After：指定在哪个单元格之后开始搜索。默认为范围的左上角单元格。
- LookIn：指定要在哪里搜索内容。可以是xlValues（仅搜索单元格的值）、xlFormulas（仅搜索单元格的公式）或xlComments（仅搜索单元格的注释）。
- LookAt：指定要搜索的内容与查找内容的匹配方式。可以是xlWhole（完全匹配）或xlPart（部分匹配）。
- SearchOrder：指定搜索顺序。可以是xlByRows（按行）或xlByColumns（按列）。
- SearchDirection：指定搜索方向。可以是xlNext（向下或向右搜索）或xlPrevious（向上或向左搜索）。
- MatchCase：指定是否区分大小写。可以是True（区分大小写）或False（不区分大小写）。
- MatchByte：指定是否区分全角和半角字符。可以是True（区分）或False（不区分）。
- SearchFormat：指定要搜索的格式。可以是一个格式对象或一个格式条件。
以下是一个示例代码，演示如何在VBA中引用查找中的单元格：
Sub FindCell()
Dim rng As Range
Dim searchValue As String
' 设置要查找的内容
searchValue = "Apple"
' 在范围A1:A10中查找内容为"Apple"的单元格
Set rng = Range("A1:A10").Find(searchValue)
' 判断是否找到了匹配项
If Not rng Is Nothing Then
' 找到了匹配项
MsgBox "找到了匹配项，单元格地址为：" & rng.Address
Else
' 没有找到匹配项
MsgBox "没有找到匹配项"
End If
End Sub在上述示例中，我们使用Range对象的Find方法在范围A1:A10中查找内容为"Apple"的单元格，并将找到的单元格赋值给rng变量。然后，我们判断rng是否为空，如果不为空，则表示找到了匹配项，弹出一个消息框显示找到的单元格地址；如果为空，则表示没有找到匹配项，弹出一个消息框提示没有找到。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云VPC（Virtual Private Cloud）：https://cloud.tencent.com/product/vpc
- 腾讯云CVM（Cloud Virtual Machine）：https://cloud.tencent.com/product/cvm
- 腾讯云CDB（Cloud Database）：https://cloud.tencent.com/product/cdb
- 腾讯云COS（Cloud Object Storage）：https://cloud.tencent.com/product/cos
- 腾讯云SCF（Serverless Cloud Function）：https://cloud.tencent.com/product/scf
- 腾讯云CDN（Content Delivery Network）：https://cloud.tencent.com/product/cdn
- 腾讯云SSL证书：https://cloud.tencent.com/product/ssl
- 腾讯云WAF（Web Application Firewall）：https://cloud.tencent.com/product/waf
- 腾讯云音视频处理：https://cloud.tencent.com/product/mps
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网：https://cloud.tencent.com/product/iot
- 腾讯云移动开发：https://cloud.tencent.com/product/mobile
- 腾讯云对象存储：https://cloud.tencent.com/product/cos
- 腾讯云区块链：https://cloud.tencent.com/product/baas
- 腾讯云元宇宙：https://cloud.tencent.com/product/mu
相关·内容
3回答
如何查找"0“值而不是空单元格
excel、vba
我有一个包含8列数据的电子表格，A-H，每一列都有不同的长度，可能包含我需要删除的值"0“。我没有使用循环来完成此操作，而是尝试使用.Find方法来完成此操作，但由于find方法不断将空单元格(其中一列比最大长度列短)分类为零，所以我的方法变得越来越混乱。当该函数找到其中一个单元格时，它会选择并删除该列顶部的一个单元格，而不是选择特定的单元格。我尝试使用非0的值来使用我的代码，它工作得很好，所以这是excel将空单元格分类为"0“的问题。
有没有办法专门搜索值"0"？我尝试使用str(0)将字符串值指定为"0“，但得到了相同的结果。我的代码的一个子集是：
浏览 0提问于2012-08-08得票数 2
回答已采纳
4回答
VBA复制粘贴字符串搜索
vba、excel
我似乎想不出如何编写一个vba代码来搜索单元格C10:G10以找到等于单元格A10的匹配项，一旦找到，就将范围A14:A18复制到匹配的单元格但在下面，例如F14:F18 (见图)
下面的宏
'Copy
Range("A14:A18").Select
Selection.Copy
'Paste
Range("F14:F18").Select
ActiveSheet.Paste!
浏览 0提问于2015-05-07得票数 0
2回答
在从另一个工作表链接的单元格中查找值
vba、excel、excel-2016
今天，我在.Find函数上遇到了一个新问题。我正在尝试通过一个工作表执行.Find，该工作表具有从另一个工作表链接的单元格。我有一个包含来自ws2的链接日期标题行的ws1。例如: ws1 A1单元格公式为= ws2 !$A$1，ws1 B1公式为=ws2!$A$2。ws2包含列A中的日期。
我在ws1中使用.Find来查找在用户表单(即ComboBox1.Value)的ComboBox1中显示的值。ComboBox1源直接链接到ws2 A列，更新时的值被更改为dd-mmm-yy格式。
代码如下：
Private Sub TestSub()
Dim colRng As Range
With W
浏览 0提问于2018-04-05得票数 0
2回答
在VBA中使用通配符按关键字进行搜索
vba、excel
我知道这是可能的CTRL，但我希望能够在VBA。例如，如果我想在我的工作簿中搜索"Worthington水泵“，但在工作簿中没有按这个顺序搜索这两个单词，但是它们在同一个单元格中，所以我可以搜索"Worthington水泵”。有没有办法用VBA而不是CTRL来做这件事呢？
浏览 10提问于2017-07-03得票数 0
2回答
在宏或VBA中使用匹配和地址函数
excel、excel-match、vba
我有两个工作表，我想使用sheet to_approve中的值来查找sheet submitted中的column A，然后标识单元格引用，以便可以在相邻的单元格(column B)中粘贴值。
我使用下面的代码来标识单元格引用，但我不知道如何在VBA代码中使用它。
=ADDRESS(MATCH(To_Approve!D19,Submitted!A:A,0),1,4,1,"submitted")
浏览 1提问于2011-12-06得票数 1
2回答
VBA替换字符串的第二次出现
excel、vba
我需要在突出显示的单元格中替换此单词的第二次出现。到目前为止，我已经有了替换所有实例的代码。
Selection.Replace What:="NORTH", Replacement:="N", LookAt:=xlWhole, MatchCase:=True
浏览 2提问于2020-09-05得票数 0
2回答
在使用Find进行搜索之前修剪搜索参数
excel、vba、find
有没有办法在搜索之前使用Find修剪搜索参数？
我有一个Excel文件，我想通过它来搜索其中包含特定单词的单元格；每个单元格只包含一个单词。Find函数不区分大小写，并且在大多数情况下都可以完美地工作。我发现的唯一(可能)缺陷是单元格必须只包含单词，而不能包含前导和尾随空格。
例如:如果我想使用Find函数搜索单词search
Dim rng as Range
rng = ActiveSheet.Range("A1:K100")
Set foundItem = rng.Find("acoustic")
if not foundItem Is Nothing Th
浏览 4提问于2017-02-18得票数 0
回答已采纳
1回答
用于在字符串表达式列表中查找特定单词的宏
excel、vba
我尝试做的是引用一个列来查找另一个列中的关键字。例如： ? 我需要搜索的是列C中的数千个单元格到A列中的数百个单元格。当在A中找到来自C的字符串时，我希望它突出显示。 在这种情况下，在运行宏之后，唯一突出显示的单元格是"Bird Cat“和"The Snake”。到目前为止，我得到的信息如下： Sub Test()
Columns("A:A").Select
Selection.Find(What:="Bird", After:=ActiveCell, LookIn:=x1Formulas2, _
Lo
浏览 20提问于2020-09-03得票数 0
3回答
对象存储文件详情是否能提供MD5值？
对象存储、官方文档
当上传较大文件，需要一个参考值以方便地确认上传是否成功
标题：控制台概述 - 对象存储 - 产品文档 - 帮助与文档 - 腾讯云
地址：https://cloud.tencent.com/document/product/436/11365
浏览 950提问于2018-02-04
1回答
VBA的字符串比较算法是什么？
string、vba、algorithm、excel
我正在尝试加快我的程序在数组中搜索字符串的速度。例如，我正在编写一个程序，它在1000个随机单词的列中搜索单词"test“。
目前我的程序是一个简单的：
If Cells(x,1).Value = "test" Then
...
End If
然而，这是我的想法，
If Left(Cells(x,1).Value,1) = "t" Then
If Left(Cells(x,1).Value,2) = "te" Then
... and so on ...
End If
但后来我开始想，当我请求VBA来测试value = "test
浏览 0提问于2017-01-13得票数 1
3回答
从相邻单元格解锁某个条件下的单元格
vba、excel、excel-formula
我有两列，但我想要的条件是从一个单元格计算到另一个单元格。
第一列具有带有名称的下拉验证的单元格，第二列仅在从相邻单元格中选择某个名称时才会激活。
到目前为止，我只找到了以下代码，但它似乎不起作用：
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = "Car" Then
Range("B1").Locked = False
Else
Range("B1").Locked = True
浏览 5提问于2009-04-15得票数 1
回答已采纳
1回答
代码都是复制于官网https://cloud.tencent.com/document/product/382/11672，
稍做修改发现不能正常发送短信，返回：
{'result': 1014,
'errmsg': '模版未审批或内容不匹配，错误详解见:https://cloud.tencent.com/document/product/382/9558#.E8.BF.94.E5.9B.9E1014.E9.94.99.E8.AF.AF.E5.A6.82.E4.BD.95.E5.A4.84.E7.90.86.EF.BC.9F', 'ex
浏览 961提问于2019-07-18
1回答
查找一个范围，然后根据找到的范围清除另一个范围中的内容
excel、vba、excel-2016
我不确定我是否在我的问题中很好地解释了这一点，但我会尝试在这里解释得更好。 我想要做的是了解如何搜索特定文本的范围，并使用该搜索来定义一个可以清除内容的范围。我想要清除内容的区域中有一些固定的数据，我想跳过清除。但是我想要清除的数据总是在固定范围的单元格上。 为了更好的解释。如果我有一个A2:G50的搜索范围，我想根据下拉列表搜索该范围的数据。找到后，我想清除区域A中11个单元格的内容，然后清除C:G区域中11个单元格的内容。将内容保留在范围B中。 任何帮助的VBA将是什么样子将非常感谢，因为我不知道。 Private Sub CommandButton2_Click()
Dim rgFo
浏览 11提问于2020-04-16得票数 1
回答已采纳
请描述您的问题
标题：FTP Server 工具 - 对象存储 - 产品文档 - 帮助与文档 - 腾讯云
地址：https://cloud.tencent.com/document/product/436/7214
浏览 502提问于2018-02-23
1回答
怎么通过群名称搜索组群？
官方文档、即时通信 IM
无法通过群名称搜索组群
标题：群组管理（Android SDK） - 云通信 - 产品文档 - 帮助与文档 - 腾讯云
地址：https://cloud.tencent.com/document/product/269/9236#11.-.E6.90.9C.E7.B4.A2.E7.BE.A4
浏览 240提问于2018-02-09
1回答
复制找到的文本，包括指向新文档的超链接
vba、hyperlink、ms-word
我的VBA脚本正在搜索Word文档中的特定文本，如果找到的文本包含超链接，我也希望将超链接复制到新文档。
我尝试过这样做(源是word中的一个表，目的地也是)：
With source.Cell(1,1).Range
.Find.Text = "MyTextToSearch
.Find.Execute Forward:=True
.Select
.Copy
End With
destination.Cells(1).Range.Paste
文本被复制到目标，但没有超链接。当我在Word中使用查找、复制和粘贴(通过GUI)进行相同的操作时，所有内容都会被复制到目的
浏览 4提问于2017-10-10得票数 0
回答已采纳
1回答
在日期行中查找并选择具有特定日期的单元格
excel、vba
我正在尝试在名为archief的工作表中查找并选择日期行中的一个单元格。包含日期的行的范围是Sheets("archief").Range("B2:HT2")。我要查找的日期的输入是Sheets("Rekenblad").Range("B29")格式。
在日期行中找到单元格后，我需要选择它下面的单元格1。例如，我要查找的日期是B2，那么我需要选择B3。
在那之后，我想粘贴一些我之前复制的东西。
如何使用VBA执行此操作？这是我到目前为止已经尝试过的代码。
Sub FindCell()
Dim RowDates As Ran
浏览 5提问于2021-05-21得票数 1
2回答
如何使用If语句搜索特定文本的列？
excel、vba
我试图让代码到，检查整个列是否包含特定的文本。
它将永远是首都。这行之后有很多代码，但我只希望在满足以下条件时运行该代码。我考虑的代码如下所示。
If ActiveSheet.Range("J:J").Text = "GENERAL" Then
但是，这没有返回任何结果，我已经尝试过Instr()，但是没有结果。
什么是正确的语法？
浏览 5提问于2012-08-30得票数 2
回答已采纳
2回答
Find不返回感兴趣的范围
vba、excel
在Excel2010中，我正在尝试让这个小脚本工作。
If searchVal = findVal Then
Set rngX = Worksheets("NEW Format").Range("C:C").Find(What:=resultVal, LookIn:=xlValues)
ID = rngX.Offset(0, -1).Value
End If
我知道'searchVal‘是正确的，我知道'findVal’是正确的，我知道'resultVal‘是正确的。此外，rngX被定义为一个范围。但是，每次运行时，r
浏览 1提问于2017-01-27得票数 1
我有一个函数，它在一个范围内查找当前日期，并返回找到该日期的单元格。我尝试使用单元格的位置来计算子例程中的偏移量。但是，当我运行宏时，我得到objected required作为一个错误。函数和子例程如下所示：
Function findCurrentDate() As Range
Dim needle As Date
Dim rng As Range
needle = CLng(Date)
Dim haystack As Range
Dim search As Range
Set haystack = Range("B3:B86"
浏览 0提问于2012-06-02得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
