Excel将筛选后选中的公式替换为值

1、（1）点击：开发工具-Visual Basic

2、（2）双击要求改的sheet

3、在右侧输入以下代码，然后关闭宏页面，返回工作表

Sub PasteToValue()

    Dim c As Range

    For Each c In Application.Selection

        If c.Height * c.Width <> O Then

            c = c.Value

    End If

    Next

End Sub

4、选中要替换为值的区域，点击开发工具-宏

5、（5）选择刚定义的宏，点击执行（位置选择自己要替换的excel文件）