整个工作簿所有sheet公式转化为数值的问题

draftroman

现有一段代码，可以把单个sheet内包含表外链接的公式转化为数值，怎么改造能使其作用于整个工作簿的所有sheet上，不胜感激。


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

taller

熊excelhome

    Dim sht As Worksheet
    For Each sht In Worksheets
        sht.Cells.Copy
        sht.Cells.PasteSpecial Paste:=xlPasteValues
    Next

熊excelhome

ctrl a
ctrl c
ctrl shift v

draftroman

taller 发表于 2023-6-17 04:51

Dim cell As Range, Rng As Range
Dim sht As Worksheet
On Error Resume Next
For Each sht In Worksheets
Set Rng = sht.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
Next
MsgBox "本表上引用其它工作薄文件的所有公式已转换为数值。", , appTitle


照抄了以后，运行时卡在Set Rng = sht.UsedRange.SpecialCells(xlCellTypeFormulas)说找不到单元格

taller

On Error Resume Next 有这个代码不会停在你说的代码行

工作表中可能不存在含有公式的单元格

nicleyuan

Sub 公式转换为数值()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.UsedRange.Value = sh.UsedRange.Value
    Next
End Sub

draftroman

taller 发表于 2023-6-17 13:30
On Error Resume Next 有这个代码不会停在你说的代码行

工作表中可能不存在含有公式的单元格

追问一个问题，如果有十个sheet，我只想上述代码针对其中两个sheet起作用，代码怎么改？
假设sheet名分别为  sheet1、sheet2、sheet3、sheet4、sheet5、sheet6、sheet7、sheet8、sheet9、sheet10
只想作用于sheet4和sheet10

nicleyuan

draftroman 发表于 2023-6-17 16:05
追问一个问题，如果有十个sheet，我只想上述代码针对其中两个sheet起作用，代码怎么改？
假设sheet名分 ...

加个判断

if sht.name=sheets(“sheet4") or sht.name=sheets(“sheet6") then
....

end if

taller