查找一列文字中包含某一文本的单元格所在行数的vba代码

以下是一个简单的VBA代码，可以在Excel中查找一列文本中包含指定文本的单元格所在的行数。

Sub FindText()
    Dim searchValue As String
    Dim lastRow As Long
    Dim i As Long
    
    '指定要查找的文本
    searchValue = "要查找的文本"
    
    '找到指定列的最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    '循环遍历每一行，查找包含指定文本的单元格
    For i = 1 To lastRow
        If InStr(Cells(i, "A").Value, searchValue) > 0 Then
            '如果包含指定文本，则在Immediate窗口中显示该行数
            Debug.Print "包含指定文本的行数是: " & i
        End If
    Next i
End Sub

请将代码中的“要查找的文本”替换为您要查找的实际文本，并将“Cells(i, "A")”中的“A”更改为包含您要搜索的文本列的列字母。

相关问题

可以用vba代码实现例遍excel表中sheet1的A列每个单元格的文本 在B列返回另一表中包含A列单元格文本的单元格所在行数

可以使用以下VBA代码来实现你的要求：

Sub FindMatch()

Dim matchSheet As Worksheet
Dim searchSheet As Worksheet
Dim lastRow As Long
Dim searchRange As Range
Dim cell As Range
Dim matchCell As Range
Dim matchRow As Long

Set matchSheet = ThisWorkbook.Sheets("Sheet1")
Set searchSheet = ThisWorkbook.Sheets("Sheet2")
lastRow = matchSheet.Cells(matchSheet.Rows.Count, "A").End(xlUp).Row
Set searchRange = searchSheet.Range("A1:A" & searchSheet.Cells(searchSheet.Rows.Count, "A").End(xlUp).Row)

For Each cell In matchSheet.Range("A1:A" & lastRow)
    Set matchCell = searchRange.Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not matchCell Is Nothing Then
        matchRow = matchCell.Row
        cell.Offset(0, 1).Value = matchRow
    End If
Next cell

End Sub

代码中，首先定义了两个变量，`matchSheet` 和 `searchSheet`，它们分别代表要搜索的表格和包含要匹配的文本的表格。然后获取 `matchSheet` 表格中 A 列的最后一行，以便遍历 A 列中的所有单元格。接下来，将搜索范围设置为 `searchSheet` 表格的 A 列中所有单元格，并遍历 `matchSheet` 表格中的每个单元格。在每个单元格上，使用 `Find` 方法在搜索范围中查找匹配项。如果找到匹配项，则记录该单元格所在行的行数，并将其写入到该单元格的右侧（即 B 列）。

要使用此代码，请打开 VBA 编辑器，在其中插入一个新模块，将代码复制粘贴到模块中，然后保存并关闭编辑器。返回 Excel，运行此宏即可。请注意，此代码假设 Sheet1 中的数据从 A1 单元格开始，Sheet2 中的数据从 A1 单元格开始。如果您的表格结构不同，请相应地更改代码中的行和列号。

可以用vba代码实现excel的一列中有我想要查找的字段 另一个表中有一列包含很多文字的单元格 返回包含查找字段的所在的行数么？

可以使用VBA代码实现在一个表格中查找包含特定文本的单元格，并返回该单元格所在的行数。以下是一个简单的VBA代码示例：

Sub FindText()
    Dim searchText As String
    Dim searchRange As Range
    Dim resultRange As Range
    Dim resultRow As Long
    
    '设置查找文本和搜索范围
    searchText = "查找的文本"
    Set searchRange = Sheets("Sheet1").Range("A1:A100")
    Set resultRange = Sheets("Sheet2").Range("A1:A100")
    
    '循环遍历搜索范围中的每个单元格
    For Each cell In searchRange
        '如果单元格中包含搜索文本，则将其所在的行数添加到结果范围中
        If InStr(cell.Value, searchText) > 0 Then
            resultRow = cell.Row
            resultRange.Cells(resultRow, 1).Value = resultRow
        End If
    Next cell
End Sub

在此示例中，将搜索文本设置为“查找的文本”，搜索范围设置为“Sheet1”工作表中的“A1:A100”单元格。代码使用InStr函数在每个单元格中查找搜索文本。如果单元格包含搜索文本，则将其所在的行数添加到“Sheet2”工作表中的“A1:A100”单元格中。

你可以根据你自己的需求修改此代码，例如更改搜索范围或搜索文本。