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

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

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

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

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

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