错误提示:无法对多重区域执行此操作
错误提示:复制区域与粘贴区域大小不同
需求:筛选后跳过隐藏行粘贴,且去除函数(粘贴成数值)
尝试过的方法:
- 直接复制粘贴:
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:=xlValuesNext
' 取消拷贝状态 - 方式2
' Application.CutCopyMode = False
Application.ScreenUpdating = True '开启屏幕刷新
End Sub
3. 复制问题补充:筛选后无法复制想要的数据(无法复制/复制了全表内容)
解决办法:CTRL+G——定位条件——可见单元格——复制
其他办法:添加辅助列
最后按C列还原顺序即可