如何在EXCEL VBA宏中动态获取活动单元格地址和查找范围

Dim activeCellAddress As String
activeCellAddress = ActiveCell.Address

Dim searchRange As Range
Dim foundCell As Range

' 设置查找范围为A1到A10
Set searchRange = Range("A1:A10")

' 在查找范围内查找值为"ABC"的单元格
Set foundCell = searchRange.Find("ABC")

' 如果找到了匹配的单元格，则输出其地址
If Not foundCell Is Nothing Then
    MsgBox "找到匹配的单元格：" & foundCell.Address
Else
    MsgBox "未找到匹配的单元格。"
End If