vba在某一列中寻找到内容是啦啦啦的range并返回数据所在的range的行和列

在VBA（Visual Basic for Applications）中，要找到某一列中内容为“啦啦啦”的单元格，并返回该单元格所在的行和列，可以通过编写一个简单的函数来实现。以下是一个示例代码：

Function FindCellWithContent(sheet As Worksheet, column As String, targetContent As String) As Variant
    Dim cell As Range
    On Error Resume Next ' 如果错误发生时，跳过错误继续执行
    Set cell = sheet.Columns(column).Find(targetContent, LookIn:=xlValues)
    On Error GoTo 0 ' 恢复默认的错误处理
    
    If Not cell Is Nothing Then
        ' 如果找到目标内容，返回一个包含行号和列号的数组
        FindCellWithContent = Array(cell.Row, cell.Column)
    Else
        ' 如果没有找到目标内容，返回Nothing
        FindCellWithContent = Nothing
    End If
End Function

你可以使用这个函数来查找特定列中内容为“啦啦啦”的单元格。例如，如果你想要查找Excel工作表中A列的内容，可以这样调用函数：

Sub TestFindContent()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 指定工作表名称
    Dim result As Variant
    result = FindCellWithContent(ws, "A", "啦啦啦")
    
    If Not IsEmpty(result) Then
        MsgBox "找到啦啦啦在第" & result(0) & "行，第" & result(1) & "列。"
    Else
        MsgBox "在列A中没有找到内容为'啦啦啦'的单元格。"
    End If
End Sub

请确保将`"Sheet1"`替换为实际的工作表名称，以及将`"A"`替换为你需要搜索的列的标识。