使用Range对象获取Excel单元格的值

我有一个Excel插件中的VB.Net函数，我需要在工作表中find第一次出现的string，然后返回单元格的整个值。 例如，如果单元格F4包含“苹果和桔子”，则Findit（“苹果”）应该find$ F $ 4的范围，并返回“苹果和橘子”。

在下面的代码中，我得到了正确的范围存储在MatchedRange，但我不知道如何使用它来获取该单元格的值。 我知道我需要使细胞活跃，但这正是我挣扎的地方。

Private Sub FixFormulasButton_OnClick(sender As Object, control As IRibbonControl, pressed As Boolean) Handles FixFormulasButton.OnClick Dim ws As Object = CType(ExcelApp.ActiveSheet, Excel.Worksheet) Dim cells As Object = ws.Cells Dim MatchRange As Object = CType(cells.Find("apples", LookAt:=Excel.XlLookAt.xlPart, Lookin:=Excel.XlFindLookIn.xlFormulas), Excel.Range) If MatchRange Is Nothing Then MessageBox.Show("found no apples", "do nothing", MessageBoxButtons.OK) Else MessageBox.Show(the contents of the cell at the range found above) End if End Sub