Excel筛选后无法复制粘贴成数值解决办法

错误提示：无法对多重区域执行此操作

错误提示：复制区域与粘贴区域大小不同

需求：筛选后跳过隐藏行粘贴，且去除函数（粘贴成数值）

尝试过的方法：

2.粘贴成数值：复制——粘贴成数值：

2.1 同列复制后粘贴

2.2 复制其他列粘贴到该列

会成功，但是数值都是乱的（错位）

解决方法：

1. 筛选后无法直接粘贴到筛选后的单元格内问题：

动作：非连续区域值复制——粘贴到非连续区域

原因：需要粘贴的区域不连续

解决方法：=单元格，拉动填充（单元格内会存在公式，去除函数公式看2）

2. 解决筛选后无法粘贴成数值问题：

目的：去除单元格函数（变成数值）

动作：粘贴到非连续单元格（看1）——转化成数值

解决办法：

VBA函数：选中需要的区域——右击sheet——查看代码——输入以下代码——上方工具栏点击运行（代码源于：VBA - 粘贴为数值型_oneorall的博客-CSDN博客_vba粘贴为数值格式）

Private Sub PasteValue() '粘贴为数值型

Application.ScreenUpdating = False  '关闭屏幕刷新

    Dim Rng As Range     '选择单个单元格时，只粘贴使用ActiveCell区域     Set Rng = IIf(Selection.Count > 1, Selection.SpecialCells(xlCellTypeVisible), ActiveCell)

    '循环选择的可见区域     For Each r In Rng         ' 转为数值型         ' 方式1 - 速度快 - 文本类型需修改单元格格式         ' 设置文本型         If TypeName(r.Value2) = "String" Then             r.NumberFormatLocal = "@"         End If         r.Value = r.Value

        ' 方式2 - 速度慢 - 结果好         ' r.Copy         ' r.PasteSpecial Paste:=xlValues

    Next     ' 取消拷贝状态 - 方式2     ' Application.CutCopyMode = False

Application.ScreenUpdating = True   '开启屏幕刷新 End Sub  

3. 复制问题补充：筛选后无法复制想要的数据（无法复制/复制了全表内容）

解决办法：CTRL+G——定位条件——可见单元格——复制

其他办法：添加辅助列

 最后按C列还原顺序即可