使用VBA,查找sheet_func的第一列中内容为“get_data_func_id”的单元格的行号。
时间: 2024-10-08 22:04:46 浏览: 16
在VBA中,你可以使用`Find`函数来查找特定内容并获取其所在行号。假设你的工作表名为"Sheet_func",且数据从A1开始,你可以编写如下的代码:
```vba
Sub FindRow()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet_func")
Dim rng As Range
Dim foundRow As Long
foundRow = -1 ' 初始化找不到值时的默认行号
' 查找 "get_data_func_id" 的单元格
On Error Resume Next
Set rng = ws.Range("A:A").Find(What:="get_data_func_id", LookIn:=xlValues)
If Not rng Is Nothing Then
foundRow = rng.Row ' 如果找到,则返回该行号
MsgBox "Found at row " & foundRow
Else
MsgBox "Not found."
End If
On Error GoTo 0 ' 禁止错误处理
End Sub
```
这段代码首先设置当前活动工作表为"Sheet_func",然后在第一列(A1:A*)查找名为"get_data_func_id"的内容。如果找到了,它会返回那个单元格所在的行号;如果没有找到,则显示提示信息。