Question

=VLOOKUP(VALUE($B$100);INDIRECT("2011.xls!"&D$101;0);3;0)

我有一张工作表可以发送其他人，但我无法发送2011.xls，因为它包含秘密信息。如何复制粘贴该表中具有公式的所有单元格（“中心”）的值 = VLOOKUP（VALUE（$ B $ 100）;间接或包含VLOOKUP？

通常情况下我会断开链接，但是因为我已将表格数组与间接链接而不是链接

Answer 1

此过程遍历工作表上的所有单元格，并将所有VLOOKUP公式更改为值：

Sub RemoveVlookupFormulas()
    Dim rng As Range
    With Worksheets("Centers")
        For Each rng In .UsedRange
            If rng.Formula Like "*VLOOKUP*" Then rng.Formula = rng.Value
        Next rng
    End With
End Sub

如果Cell具有Vlookup公式，则粘贴值给定表单中的所有单元格。

1 个答案: