VBA 查找单元格返回行号和列号

VBA (Visual Basic for Applications) 是一种用于Microsoft Office应用程序的宏语言，其中包括Excel。当你需要在Excel工作表中查找特定内容并获取其所在单元格的行号和列号时，你可以编写一段VBA代码来完成这个任务。以下是一个简单的例子：

Sub FindCell()
    Dim rng As Range
    Dim lastRow As Long, lastCol As Long
    
    ' 获取当前工作表的最后行和列
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 在这里设置你想要查找的文本，例如 "目标值"
    Dim searchText As String
    searchText = "目标值"
    
    ' 使用Find函数查找该文本，并记录它的位置
    Set rng = Sheets("Sheet1").Range("A1").Find(searchText, , xlValues, xlWhole)
    
    If Not rng Is Nothing Then
        ' 如果找到，打印行号和列号
        MsgBox "找到单元格: [" & rng.Row & ", " & rng.Column & "]"
    Else
        MsgBox "未找到目标单元格!"
    End If
End Sub

这段代码首先定义了范围变量`rng`，然后找到包含"目标值"的第一个非空单元格（假设在第一列）。如果找到了，它会显示单元格的行号和列号；如果没有找到，则显示一条找不到的消息。