VBA在粘贴值旁边查找和查找
VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic的宏语言，用于在Microsoft Office应用程序中编写自定义宏和脚本。它可以帮助用户自动化重复性任务，提高工作效率。
在VBA中，可以使用"Find"和"FindNext"方法来查找特定的值。这两个方法可以在指定的范围内搜索指定的值，并返回匹配的单元格或范围。
使用"Find"方法时，可以指定要查找的值、查找的范围、查找的方向、是否区分大小写等参数。例如，以下代码将在选定范围内查找值为"apple"的单元格，并将其选中：
Sub FindValue()
Dim rng As Range
Set rng = Selection ' 选定范围
Dim result As Range
Set result = rng.Find(What:="apple", LookIn:=xlValues, LookAt:=xlWhole)
If Not result Is Nothing Then
result.Select
Else
MsgBox "Value not found."
End If
End Sub使用"FindNext"方法可以继续查找下一个匹配项。以下是一个示例代码，演示如何连续查找多个匹配项并选中它们：
Sub FindNextValue()
Dim rng As Range
Set rng = Selection ' 选定范围
Dim firstResult As Range
Set firstResult = rng.Find(What:="apple", LookIn:=xlValues, LookAt:=xlWhole)
If Not firstResult Is Nothing Then
Dim result As Range
Set result = firstResult
Do
result.Select
Set result = rng.FindNext(result)
Loop While Not result Is Nothing And result.Address <> firstResult.Address
Else
MsgBox "Value not found."
End If
End SubVBA的"Find"和"FindNext"方法在Excel等Microsoft Office应用程序中非常常用，可以帮助用户快速定位和处理特定的数据。在处理大量数据或需要频繁查找的情况下，使用VBA可以极大地提高工作效率。
腾讯云提供了云计算相关的产品和服务，其中包括云服务器、云数据库、云存储等。您可以通过访问腾讯云的官方网站（https://cloud.tencent.com/）了解更多关于这些产品的详细信息和使用方式。
相关·内容
2回答
Excel在执行vba时冻结
vba、excel
当我单击用户表单上的按钮时，会运行这个查找和突出显示vba，尽管它突出显示了第一个实例，excel冻结了很长时间并且没有响应。不显示任何bug之类的。
Private Sub changebutton_tp_Click()
Dim sheet As Worksheet
Dim table_list_obj As ListObject
Dim table_obj_row As ListRow
Set sheet = Sheets("TermGUI")
Dim rng As Range
Set rng = s
浏览 0提问于2016-01-25得票数 1
回答已采纳
1回答
VBA excel搜索工具
excel、vba、search
尝试对我正在工作的excel工作表(VBA)执行搜索工具。到目前为止，每次搜索文本时，它都只过滤第一行，而不过滤任何具有我所寻找的值的行。我添加了一张图片来显示它返回的内容以及代码。我是否需要更改代码，让它搜索工作表中的所有数据，而不是让它只显示一行？任何帮助都是非常感谢的。
仅搜索第一行的结果：
Sub SearchAllSheets()
Dim ws As Worksheet, OutputWs As Worksheet
Dim rFound As Range
Dim strName As String
Dim count As Long, LastRow As Long
Dim
浏览 5提问于2022-08-20得票数 0
1回答
确定VBA if Then语句对于代码是否必需以及如何修复编译错误
excel、vba
正在尝试设置从包含"Period“的单元格到包含"Agent Split”的单元格的范围("headers")。在代码的末尾，我选择了所有这些范围，以确保它正常工作。
我调整了以下包含For循环的代码
Sub Rangeheaders_test()
Dim r As Long
Dim endRow As Long
Dim endCell As Range
Dim headers As Range
With ActiveSheet
endRow = 500
For r = 1 To endRow
If .Cells(r, &#
浏览 38提问于2019-05-23得票数 0
回答已采纳
1回答
VBA .findnext不工作。运行时错误91未设置对象变量或块变量
vba、find、range、runtime-error、with-statement
我正在尝试执行一个搜索，它在一列中搜索"REQM“(没有引号)，并将找到的单元格的范围设置为d。然后调用另一个子函数来查找要输入数据的位置。我的find子函数运行得很好，我的第一个FindEntryArea运行得很好，但是当它尝试查找not时，它就不能正常工作了。
Sub FindLoop()
Dim re as Range
Set re = Sheets(1).Range("T:T")
With re
Set d = .Find("REQM", LookIn:=xlFormulas, LookAt:=xlWhole)
MsgBox (
浏览 2提问于2013-06-10得票数 1
回答已采纳
1回答
如何在我的代码中获得解析运行时错误13，以便在excel中查找和删除整行
excel、vba、string、mismatch
我正在尝试编写一个VBA脚本来删除从下拉列表中选择的行。我的代码是
Sub delete_md_entry()
Dim LR As Long
Dim str As Range, rfnd As Range
'LR = Sheets("MASTER_DATA").Range("C2000").End(xlUp).Row
str = Sheets("MASTER_DATA").Range("I2").Value
If Len(str) <> 0 Then
Set rfnd = Selec
浏览 12提问于2022-02-03得票数 0
4回答
如何使用vba代码Cells.Find在excel列中查找值
vba、excel
我必须在Excel表中找到一个值celda。我使用这个vba代码来找到它：
Set cell = Cells.Find(What:=celda, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
If cell Is Nothing Then
'do it something
Else
'do i
浏览 4提问于2013-02-18得票数 36
回答已采纳
2回答
检查特定列的VBA存在于工作表中。
vba、excel
在进入主过程之前，我在这里检查sheet1中是否存在一些特定的列，但问题是，原始数据表列(如"Employee Name“和"Designation”)在该工作表中，但是当运行以下代码时，它给出了一条消息“not”，它是从那个循环中出来的，请您帮助我解决这个问题。
Dim rngX As Range
Sub Colvalidation1()
Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Work Geography", lookat:=xlPart)
If Not rn
浏览 0提问于2018-03-08得票数 0
回答已采纳
3回答
无法获得Range类的FindNext属性
excel、vba、loops、find、delete-row
我正在创建员工培训数据库，我希望能够在员工离开后删除所有实例。他们的员工编号在F列中(因为许多员工同名，这个数字最简单)。
因此，我想搜索员工号的所有实例并删除整行。我可以让它删除员工号的一个实例，但是它找不到下一个实例。我添加了FindNext命令，但得到了错误：
无法获得FindNext类的Range属性。
为什么Find是可以的，而不是FindNext
以下是代码：
Private Sub cmdDeleteA_Click()
'declare the variables
Dim findvalue As Range
Dim cDelete As Vb
浏览 1提问于2018-12-13得票数 1
1回答
我想使用命令按钮在活动工作表的textbox2中搜索/查找值
excel、vba
我想使用命令按钮在活动工作表的textbox2中搜索/查找值
下面是我的代码：
Dim ws As Worksheet
Set ws = Worksheets("FSS-TEM-00025")
Dim FindString As String
Dim Rng As Range
FindString = Me.TextBox2.Value
If Trim(FindString) <> "" Then
With ws.Range("A1:Z1048576")
'
浏览 0提问于2013-01-31得票数 1
1回答
VBA标识范围内的数字
excel、vba、range
我确信这是一个简单的问题，但在WWW上似乎找不到任何明确的东西。
Public Sub ErrorCheck()
Dim FindString As String
Dim Rng As Range
FindString = ""
If VBA.Trim(FindString) <> "" Then
With Sheets("Scoring").Range("S:S")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.
浏览 0提问于2013-07-04得票数 1
2回答
Range.FindNext导致运行时错误91
vba、excel、loops
我使用VBA搜索15x15数组，查找所有‘1’的位置(行和列号)，并将它们映射到一个新位置。
Sub findvalues()
Dim OldRow As Long
Dim OldColumn As Long
With Worksheets(1).Range("a1:o15")
Set c = .Find(1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
cellAddress = c.Address
浏览 0提问于2018-02-01得票数 1
回答已采纳
1回答
VBA单元格突出显示
vba、excel
我需要突出显示单元格:如果已经突出显示，则在另一个单元格中查找数字并突出显示该单元格
这是我最基本的代码。
它可以工作，但我发现，如果我有相同数字的倍数，它仍然只会突出显示第一个找到的。我需要它能够告诉它已经突出显示，并移动到下一个并突出显示那个。
Sub Find_FirstmanUALDar()
Dim FindString8 As String
Dim Rng8 As Range
FindString8 = Sheets("DAR").Range("D12").Value
If Trim(FindString1) <&
浏览 2提问于2012-08-24得票数 1
1回答
从Excel中删除不需要的文本
vba、excel
我目前有一个VBA代码运行，以消除文本从我的excel数据表.我遇到问题的地方是我有梨的那条线，在数据集中，梨有时以梨和菠萝的形式出现在一个细胞里。所以当我运行这段代码时，它会删除任何pear出现的地方。我希望代码只在单独运行时消除pear。
至于苹果和香蕉，如果它与另一种水果一起出现的话，如果它被删除是可以的，我只需要对梨的限制。
Sub DeleteMultipleRows()
Call DeleteRows(ActiveSheet.Range("A1:A65536"), "Apple")
Call DeleteRows(Ac
浏览 2提问于2018-06-05得票数 0
回答已采纳
2回答
在多列下查找、复制和粘贴值
vba、excel
下面的代码用于将sheet1中的"Apple“列下的值复制到sheet2中的"AppleNew”列中。(感谢蒂姆)
但是，如果我有多个列(Orange，Banana等)，是否有办法编写更简单的代码来遍历循环，而不是为每个列复制和粘贴代码？
Dim rng as range, rngCopy as range, rng2 as range
set rng = Sheet1.Rows(3).Find(What:="Apple", LookIn:=xlValues, LookAt:=xlWhole)
if not rng is nothing then
浏览 7提问于2013-09-11得票数 0
回答已采纳
1回答
excel vba搜索多个条件可获得多个结果
excel、vba、multiple-results
我试图用Excel VBA在一个表中搜索多个条件，如果我得到这些条件的多个结果，我想要显示它们。到目前为止，我的代码可以搜索多个条件，但当它找到一个匹配结果时就停止了。 作为一个初学者，我请求您的帮助，如何实现多个结果的功能。 这是我现在使用的代码片段： Set rngSearch = Sheets(Temp_Bereich).Range("A:M")
Set Found = rngSearch.Find(What:=Material_A, _
LookIn:=xlValues, _
浏览 101提问于2021-09-07得票数 0
回答已采纳
2回答
测试SearchFind是否发现了什么
excel、replace、vba
我记录了这个简单的SearchFind宏，是否可以参考它在搜索值中找到多少个单元格？
或
一个真正的错误测试，以便如果Searchfind找到一个带有搜索值的单元格，然后做一些事情，否则做一些不同的事情。
谢谢(希望我说得很清楚)
Sub Macro2()
Columns("B:B").Select
Cells.Find(What:="MyValue", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=x
浏览 0提问于2014-04-07得票数 0
回答已采纳
1回答
VBA UDF在每次更改后进行评估。
excel、vba、user-defined-functions
我有一个问题，我认为会是一个相当简单的问题，但现在无法处理，所以我想是错误的。我有一个UDF，它计算两个日期之间的平均汇率。
Option Explicit
Public Function averageFromRange() As Double
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Exchange Rates")
Dim dateStart As Date: dateStart = sh.range("G1").Value
Dim dateEnd As Date: dateEnd =
浏览 1提问于2021-10-26得票数 0
回答已采纳
1回答
如何在我的代码中声明科学数据类型
excel、vba、types
Sub Find_Value()
Dim FindString As Double
Dim Rng As Range``
FindString = InputBox("Enter a search value")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("D:D")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=x
浏览 11提问于2020-08-27得票数 0
2回答
如何使此代码在工作表中搜索，现在它只搜索A行
excel、vba、loops、worksheet
Sub Sample()
Dim oRange As Range, aCell As Range, bCell As Range
Dim ws As Worksheet
Dim ExitLoop As Boolean
Dim SearchString As String, FoundAt As String
On Error GoTo Err
Set ws = Worksheets("Sheet3")
Set oRange = ws.Columns(1)
SearchString = "2"
浏览 0提问于2016-02-02得票数 0
回答已采纳
1回答
使用Application.WorksheetFunction.Match返回类型不匹配
excel、vba、worksheet-function
我正在尝试让Application.WorksheetFunction.Match在特定列的某个范围内的下一行中查找一个值，并将其与另一个工作表列中的值列表进行匹配，如果没有返回错误，则设置a=一个特定值。
我目前拥有的代码是：
Dim caseSearch As String
Dim caseCell As Range
Dim moveSearch As String
Dim moveCell As Range
caseSearch = "caseset"
moveSearch = "movementset"
Set caseCell = ws.Rows(
浏览 13提问于2021-06-06得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
