怎样使用VBA删除工作表中数据链接？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 删除与其他工作簿之数据链接()

    Dim Cell As Range, FirstAddress As String
    Application.ScreenUpdating=False
    With ActiveSheet.UsedRange
      Set Cell=.Find("=*!", LookIn:=xlFormulas, searchorder:=xlByRows,
            LookAt:=xlPart, MatchCase:=True)
      On Error GoTo err
      FirstAddress=Cell.Address
      Do
        Cell=Cell.Value
        Set Cell=.FindNext(Cell)
    Loop Until Cell Is Nothing Or Cell.Address=FirstAddress
  End With
  Application.ScreenUpdating=True
err:
End Sub

5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，第三列公式全部转换成值，第二列公式不变，