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

在VBA中，要找到A列中内容为"啦啦啦"的单元格并返回该单元格的行数和列数，可以使用以下代码。这段代码会从A列的第一个单元格开始逐个向下查找，一旦找到内容为"啦啦啦"的单元格，就会记录下该单元格的行号（Row）和列号（Column）。

Sub FindContentAndReturnPosition()
    Dim rng As Range
    Dim found As Range
    Dim targetContent As String
    Dim targetRow As Long
    Dim targetColumn As Long

    ' 要查找的内容
    targetContent = "啦啦啦"
    
    ' 在A列中查找内容
    Set found = Columns("A:A").Find(What:=targetContent, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了目标内容
    If Not found Is Nothing Then
        targetRow = found.Row ' 获取行号
        targetColumn = found.Column ' 获取列号（A列的列号始终是1）
        MsgBox "找到啦啦啦在第" & targetRow & "行，A列。"
    Else
        MsgBox "在A列中未找到内容为啦啦啦的单元格。"
    End If
End Sub

使用这段代码前，请确保你的VBA环境已经设置好，并且你有权限运行宏。