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

以下是一个简单的VBA[代码](https://geek.csdn.net/educolumn/1572ef9b473b4e00f6b2bf6d428b7c27?spm=1055.2569.3001.10083)，可以在Excel中查找一列文本中包含指定文本的单元格所在的行数。 ```VBA Sub FindText() Dim searchValue As [string](https://geek.csdn.net/edu/8802d631b97a4a6af1f4d0bbf8527465?dp_token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpZCI6NDQ0MDg2MiwiZXhwIjoxNzA3MzcxOTM4LCJpYXQiOjE3MDY3NjcxMzgsInVzZXJuYW1lIjoid2VpeGluXzY4NjQ1NjQ1In0.RrTYEnMNYPC7AQdoij4SBb0kKEgHoyvF-bZOG2eGQvc&spm=1055.2569.3001.10083) 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[窗口](https://geek.csdn.net/educolumn/00d3d1b467be187bf63895f811603770?spm=1055.2569.3001.10083)中[显示](https://geek.csdn.net/educolumn/103ca72607c717122e068b9f06a24df6?spm=1055.2569.3001.10083)该行数 Debug.Print "包含指定文本的行数是: " & i End If Next i End Sub 请将[代码](https://geek.csdn.net/educolumn/1572ef9b473b4e00f6b2bf6d428b7c27?spm=1055.2569.3001.10083)中的“要查找的文本”替换为您要查找的实际文本，并将“Cells(i, "A")”中的“A”更改为包含您要搜索的文本列的列字母。