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

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

3、在右侧输入以下代码，然后关闭宏页面，返回工作表Sub PasteToValue() Dim c As Range For Each c In Applicatio荏鱿胫协n.Selection If c.Height * c.Width <> O Then c = c.Value End If NextEnd Sub

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