使用 VBA 從 Excel 中的所有工作表中刪除公式

Question

我從 Excel 的單元格中刪除公式並只保留值（以防有數字）。 問題是由於不同的電子表格中還有 pivot 表（以及 GETPIVOTDATA 單元格）。

我目前正在嘗試此代碼，但它僅適用於普通電子表格：

Sub fun()

Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim pc As PivotCell

For Each ws In ThisWorkbook.Worksheets
    ws.Activate
    With ws.UsedRange
        .Value = .Value
    End With
Next ws


For Each ws In ThisWorkbook.Worksheets
    For Each pt In ws.PivotTables
        For Each pf In pt.PivotFields
            For Each pi In pf.PivotItems
                pi.Value = pi.Value
            Next pi
        Next pf
    Next pt
Next ws

End Sub

您能幫我修改代碼，以便將每個單元格設置為值嗎？！

Answer 1

Option Explicit

Sub test1()
    Dim ws As Worksheet, a, area As String
    For Each ws In ThisWorkbook.Worksheets
        a = ws.UsedRange
        area = ws.UsedRange.Address
        ws.Cells.ClearContents
        ws.Range(area) = a
    Next
End Sub