粘贴值所有单元格在一个给定的工作表，如果单元格有Vlookup公式..

Question

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

我有一个表格要发送给其他人，但我不能发送2011.xls，因为它包含秘密信息。我怎么能复制粘贴值所有的单元格在该工作表("中心")有一个公式喜欢= VLOOKUP(值(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