VBA 把一个工作簿 所有工作表中的公式转换为数值

为了梦想

刚刚学习VBA，请大佬们帮忙指点下。

Sub 公式转为数值()
    Application.ScreenUpdating = False
    Dim rng As Range, c As Range
    Dim sh As Worksheet
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name Then
            sh.Activate
            Set rng = ActiveSheet.UsedRange
            For Each c In rng.Cells
                If c.HasFormula Then
                    c.Value = c.Value
                End If
            Next
        End If
     Next
    Application.ScreenUpdating = True
End Sub

liulang0808

Sub 公式转为数值()
    Application.ScreenUpdating = False
    Dim sh As Worksheet
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name Then
            sh.UsedRange.Value = sh.UsedRange.Value
        End If
     Next
    Application.ScreenUpdating = True
End Sub
看看是否可行。。。。

taller

为了梦想

liulang0808 发表于 2021-5-24 07:07
Sub 公式转为数值()
    Application.ScreenUpdating = False
    Dim sh As Worksheet

感谢！！大佬，代码运行速度比我那个快多了。不过我这边有点特殊，就是只转换有公式的地方，没公式的不粘贴为数值。

liulang0808

Sub 公式转为数值()
    Application.ScreenUpdating = False
    Dim sh As Worksheet
    On Error Resume Next
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name Then
            sh.UsedRange.SpecialCells(xlCellTypeFormulas, 23).Value = sh.UsedRange.SpecialCells(xlCellTypeFormulas, 23).Value
        End If
     Next
    Application.ScreenUpdating = True
End Sub

为了梦想

taller 发表于 2021-5-24 07:08

之前没看到，膜拜大佬！！