发布网友 发布时间:2022-06-02 04:29
共3个回答
热心网友 时间:2023-10-29 02:55
我写了一个通用工具,里面有三个转换公式为数值的功能:全部去除、保留本表引用、保留本工作簿引用的,我的工具界面如下:
三段代码都粘贴如下,供参考,我觉得第三项菜单的代码能满足帖子需求。
第一项,去除所有公式,代码一行:
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
第二、三项目代码如下图:
文本粘贴如下,可能会乱:
Sub Y把全表公式转换为数值() '保留本表引用公式
Dim cell As Range, Rng As Range
On Error Resume Next
Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Rng Is Nothing Then
MsgBox "本表没有公式。", , appTitle
Exit Sub
End If
For Each cell In Rng.Cells
If InStr(cell.Formula, "!") Then cell.Value = cell.Value
Next cell
MsgBox "本表上引用其它表的所有公式已转换为数值。", , appTitle
End Sub
Sub Y把全表公式转换为数值2() '保留本工作薄内部引用公式
Dim cell As Range, Rng As Range
On Error Resume Next
Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Rng Is Nothing Then
MsgBox "本表没有公式。", , appTitle
Exit Sub
End If
For Each cell In Rng.Cells
If InStr(cell.Formula, "[") Then cell.Value = cell.Value
Next cell
MsgBox "本表上引用其它工作薄文件的所有公式已转换为数值。", , appTitle
End Sub
追答可以另外写一个宏:
sub 宏1()
Dim st as worksheet
Application.Calculation = xlCalculationManual
for each st in worksheets
st.activate
Y把全表公式转换为数值2
next st
end sub
热心网友 时间:2023-10-29 02:55
直接菜单栏数据---编辑链接选择所有链接断开就可以了,
如果是 文件内 工作表 引用的公式 才需要用到 VBA
对于其他文件的 公式引用 链接 , 断开链接 是最快 最简单的方法
热心网友 时间:2023-10-29 02:56
需要把你的原始excel表格发我下,了解清楚情况才能对症下药