从地址获取单元格

在Excel VBA中，我想这样做：

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

我怎样才能以最好的方式实现“GetCellFromAddress”？ 我知道我可以parsingcellAddress，但是这似乎有些尴尬…

如果有问题，我正在使用Excel 2007。

Answer 1

 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 --------------------------- 

玩的开心！

Answer 2

我认为freerider的答案是足够好的，我upvoted它。

如果你想看到他的解决scheme实现为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