excel 复制已筛选过的有公式的数据 在原单元格粘贴数值

Question

如题，例如a1：c100全都有数据，a列是姓名；B是性别；c是其他数据；筛选B列为女的条件，制作了C列的公式，然后我想把这些公式复制粘贴为数值，需要 如何操作？（假设B列为男的条件有另一种公式，且那些公式不能粘贴为数值，且数据无法排序）
在不添加新列，不使用新的表格的条件下有办法吗？或是有相对应的宏吗？

Answer 1

Sub a() 'C列可见单元格值粘贴
    Dim iRow As Long, i As Long
    iRow = Range("C60000").End(xlUp).Row 'iRow为C列最大行数
    For i = 2 To iRow
        With Range("C" & i)
            If Rows(i).Hidden = False Then '如果i行内容可见
                .Value = .Value 'C列对应单元格值粘贴
            End If
        End With
    Next
End Sub

追问

怎么使用？提问的只是一个假设，就是最好能在各个情况下都能使用

追答

Alt+F11打开VBE窗口，插入--模块--复制粘贴代码--在Excel界面Alt+F8运行宏--完成。

上面代码的主要功能就是对C列进行操作，与筛选的条件无关，只将筛选结果的C列内容值粘贴。如果表格处于完全显示状态，则C列全部值粘贴。

图1，原始数据，C列单元格均为公式

图2，以某条件筛选内容

图3，单击按钮后，C列筛选结果值粘贴



追问

谢谢，本来是想问你如果值不是在C列需要怎么更改的，我已经知道了，谢谢啦~