各位老师，有个批量把单元格内公式转成值的问题。

jiaodaoniu

各位老师，我工作中有个超级表，每天有几万行的数据，里面有几列整列都是公式。
如何能通过VBA在保留超级表的同时，把里面的公式都批量快速的转成值？
我写了一点代码，想通过数组来实现，但是一运行就会卡很久。

温馨云

方式这个

Sub 公式转换为数值_选定区域()
    Dim rng As Range
    Set rng = Selection ' 设置rng为当前选定的单元格区域
    rng.Copy ' 复制选定的单元格区域
    rng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' 以数值形式粘贴
    Application.CutCopyMode = False    '解除复制模式
End Sub

taller