RT 谢谢!
如果可以 高分送上!!
谢谢高手,另外我想问下有没有办法能实现批量处理将本表所有需要链接其他表格的公式清除并保留原数据?
比如 A2=SUMPRODUCT(('C:\PMS Report Tools\[PMS Report Tools.xls]Rawdata'!AX$2:AX$1423="booked")*('C:\PMS Report Tools\[PMS Report Tools.xls]Rawdata'!G$2:G$1423=A8)
这个"\[PMS Report Tools.xls]Rawdata'!"就是另一个文件的worksheet,我想保留A2当前值并删除公式,
但前提,类似 A1=A2+A3 这种不需要连接除当前Workbook之外的、其他文件的Worksheet的公式不能删除。。有没有办法。。能提供的话愿意送上100分,谢谢!
如何通过VBA清除工作簿内所有表格的外链并保留当前数据?
答案:1 悬赏:0 手机版
解决时间 2021-03-03 16:36
- 提问者网友:嗝是迷路的屁
- 2021-03-03 07:50
最佳答案
- 五星知识达人网友:我住北渡口
- 2021-03-03 08:06
下面是一次性删除当前活动工作表的所有超链接
Public Sub ClearHyperlinks()
Dim hyl As Hyperlink
For Each hyl In ActiveSheet.UsedRange.Hyperlinks
hyl.Delete
Next
End Sub
当然可以保留,只删除链接,如果要删除所有工作表的超链接,可再做个循环。看下面的代码
Public Sub ClearHyperlinks()
Dim ws As Worksheet
Dim hyl As Hyperlink
For Each ws In Sheets
ws.Select
For Each hyl In ActiveSheet.UsedRange.Hyperlinks
hyl.Delete
Next
Next ws
End Sub
下面函数用于判断单元格是否引用了其他工作表数据
Public Function ISSHEETDATA(myCell As Range) As Boolean
If myCell.HasFormula And InStr(myCell.Formula, "!") > 0 Then
ISSHEETDATA = True
Else
ISSHEETDATA = False
End If
End Function
下面函数用来判断单元格是否引用了其他外部工作簿数据
Public Function ISWORKBOOKDATA(myCell As Range) As Boolean
If myCell.HasFormula And InStr(myCell.Formula, "xls") > 0 Then
ISWORKBOOKDATA = True
Else
ISWORKBOOKDATA = False
End If
End Function
Public Sub ClearHyperlinks()
Dim hyl As Hyperlink
For Each hyl In ActiveSheet.UsedRange.Hyperlinks
hyl.Delete
Next
End Sub
当然可以保留,只删除链接,如果要删除所有工作表的超链接,可再做个循环。看下面的代码
Public Sub ClearHyperlinks()
Dim ws As Worksheet
Dim hyl As Hyperlink
For Each ws In Sheets
ws.Select
For Each hyl In ActiveSheet.UsedRange.Hyperlinks
hyl.Delete
Next
Next ws
End Sub
下面函数用于判断单元格是否引用了其他工作表数据
Public Function ISSHEETDATA(myCell As Range) As Boolean
If myCell.HasFormula And InStr(myCell.Formula, "!") > 0 Then
ISSHEETDATA = True
Else
ISSHEETDATA = False
End If
End Function
下面函数用来判断单元格是否引用了其他外部工作簿数据
Public Function ISWORKBOOKDATA(myCell As Range) As Boolean
If myCell.HasFormula And InStr(myCell.Formula, "xls") > 0 Then
ISWORKBOOKDATA = True
Else
ISWORKBOOKDATA = False
End If
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯