在Excel中找到另一个单元格的单元格引用

Question

我有一个工作表从同一工作簿（= data！C68）中的不同工作表中返回一个值，该值返回一个值。

Ina另一个单元我想引用原始单元格中的引用，但将行增加1 - （= data！C69）。这些单元并不相邻。

这可能与函数或fromula？

感谢

乔纳森

Answer 1

Option Explicit 
Function GetCellReferenceUsedInFormula(ByVal src As Range) As Range 
If src.HasFormula Then 
    Set GetCellReferenceUsedInFormula = Evaluate(Mid(src.Formula, 2)) 
End If 
End Function 

而在式与OFFSET

=OFFSET(GetCellReferenceUsedInFormula(A1),1,0) 

这是假设单元格A1包含式=data!C68使用上述功能。
请注意，VBA代码假定公式很简单（即=somecellreference）。

Answer 2

有很多种方法来实现这一目标。这是一种方法。我通过合并您想要偏移的行和列来扩展该功能。一个模块

语法

=的getOffset（范围，行，列）

备注

范围（必需）在这个代码粘贴是具有下式的单元

行（可选）您想要的行（s） ø偏移

山口（可选）柱（S）要偏移

示例用法

=的getOffset（A1）：这将拾取器从同一单元中的值A1是指的是。如果A1是指=data!C69然后的getOffset将得到的数据值C69

=的getOffset（A1,1）：这将皮卡从下一个单元格的值（1排下来）A1为参照。如果A1是指=data!C69然后的getOffset从数据中获取价值C70

=的getOffset（A1,1,1）：这将皮卡从下一个单元格（跨1列1行向下）的值A1指的是。如果A1是指=data!C69然后的getOffset从数据中获取价值D70

=的getOffset（A1,0,1）：这将皮卡从下一个单元格的值（跨1列同一行）A1为指的是。如果A1指的是=data!C69那么GetOffset将从数据中获得价值！D69

CODE

Public Function GetOffset(Rng As Range, Rw As Long, Col As Long) As Variant 
    Dim MyArray() As String, strTemp As String 
    Dim TempRow As Long, TempCol As Long 

    On Error GoTo Whoa 

    Application.Volatile 

    MyArray = Split(Rng.Formula, "!") 

    TempRow = Range(MyArray(UBound(MyArray))).Row 
    TempCol = Range(MyArray(UBound(MyArray))).Column 

    TempRow = TempRow + Rw 
    TempCol = TempCol + Col 

    strTemp = MyArray(0) & "!" & Cells(TempRow, TempCol).Address 

    GetOffset = Application.Evaluate(Trim(strTemp)) 
    Exit Function 
Whoa: 
End Function