可以用vba代码实现excel的一列中有我想要查找的字段 另一个表中有一列包含很多文字的单元格 返回包含查找字段的所在的行数么?
时间: 2023-03-20 07:03:44 浏览: 247
可以使用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”单元格中。
你可以根据你自己的需求修改此代码,例如更改搜索范围或搜索文本。
阅读全文