应用场景:使用 Excel 处理数据,经常会在单元格中使用公式引用多个工作簿之间的数据,工作簿以及被引用数据的工作簿关闭后,再打开工作簿的时候,会出现如下提示:
如果点击更新,但是被引用的工作簿文件名称修改了,或者存放路径修改了,将无法正常更新:
作为使用者肯定不希望有这种提示,于是很多人应该会想到干脆把公式数值粘贴掉,避免出现这个提示。
方法一:复制粘贴为数值(最笨的)
于是找到那些使用公式的单元格,不停的复制 - 选择性粘贴 - 数值……
如果公式太多,而且不在同一个区域的话,操作起来就会比较麻烦,其实 Excel 里已经做好了这种功能:
方法二:点击链接选择断开(有点聪明)
点击图中的断开链接,即可达到目的,不过这种链接必须一个一个的去点,如果公式引用了太多外部数据,这样也是不大方便的,Excel 菜单能达到的功能,VBA 基本也都可以做到,对于经常会碰到这种情况需要做这个操作的,创建自定义加载宏按钮来使用还是比较方便的:
方法三:VBA(高级玩家)
<button id\="rbbtnBreakLink" label\="断开外部链接" size\="large" onAction\="rbbtnBreakLink" imageMso\="SourceControlShareObjects"/\>
Sub rbbtnBreakLink(control As IRibbonControl)
Call MRange.BreakLink
End Sub
Sub BreakLink() '断开外部链接
Dim arr, i As Integer
arr \= ActiveWorkbook.LinkSources(xlExcelLinks) '返回工作簿中链接的数组
'如果工作簿中无链接,则返回 Empty。
If VBA.IsEmpty(arr) Then
Exit Sub
End If
For i \= 1 To UBound(arr)
ActiveWorkbook.BreakLink Name:\=VBA.CStr(arr(i)), Type:\=xlExcelLinks
Next
End Sub