Vba 从地址中获取一个单元格

在Excel VBA中，我要执行以下操作：

Dim cellAddress As String, cell As Range
Set cellAddress = "=Sheet1!A7"
Set cell = GetCellFromAddress(cellAddress)

如何以最佳方式实现“GetCellFromAddress”？我知道我可以解析手机地址，但这似乎有点尴尬

如果有必要的话，我正在使用Excel2007

Dim cellAddress As String, cell As Range
cellAddress = "=Sheet1!A7"

Set cell = Range(cellAddress)

MsgBox cell.Address(True, True, xlR1C1, True)

这将显示一个带有文本的消息框：

---------------------------
Microsoft Excel
---------------------------
[Book1]Sheet1!R7C1
---------------------------
OK   
---------------------------

---

玩得开心

我认为freerider的答案足够好，我投了更高的票

如果您想看到他的解决方案实现为GetCellFromAddress

Function GetCellFromAddress(cellAddress As String) As Range
    Set GetCellFromAddress = Range(cellAddress)
End Function

Sub test()
    Dim cellAddress As String, cell As Range
    cellAddress = "=Sheet1!A7"

    Set cell = GetCellFromAddress(cellAddress)
    MsgBox cell.Address(True, True, xlR1C1, True)
End Sub

---

在我看来，你想重写范围函数吗？我真的不明白重点。