excel利用VBA将筛选后的公式批量转换为值
时间:2022-05-31 17:08:14
有时需要在Excel中进行筛选后将公式结果转换为值。通常将公式结果转换为值用选择性粘贴的方法,但该方法无法用于筛选后的结果:如果复制筛选后的区域直在原区域接选择性粘贴,Excel会提示复制区域与粘贴区域形状不同而无法粘贴;如果先选定可见区域(如用快捷键“Alt+;”)后再进行复制粘贴,Excel会提示“不能对多重选定区域使用此命令”。这时可用下面的VBA代码将筛选后的公式批量转换为值。
Sub ConvAfterFilter()
On Error Resume Next
Application.ScreenUpdating = False
Dim Rng As Range
For Each Rng In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If Rng.HasFormula Then
Rng.Copy
Rng.PasteSpecial xlValues
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
按Alt+F11,打开VBA编辑器,在代码窗口中粘贴上述代码并运行即可。该代码仅将筛选结果中所有的公式结果转换为值,而不会受影响到筛选结果中未包含(隐藏)的单元格区域。
标签:区域,筛选,粘贴,转换为,Excel函数
0
投稿
猜你喜欢
excel2003绝对引用的使用教程
2022-11-05 10:12:35
WPS自动保存时间设置教程
2023-03-25 21:48:06
win10系统提示注册表文件丢失或损坏因此无法加载怎么修复?
2023-02-26 17:00:35
ppt怎么画渐变色心形并添加阴影效果? ppt立体渐变心形的画法
2022-07-29 07:38:19
excel如何将表格数据图形化?
2023-01-07 09:48:06
win10火炬之光2存档在哪?win10火炬之光2存档查找方法
2023-10-19 23:19:53
Win11游戏人多就卡怎么办?Win11游戏人多卡顿解决办法
2022-06-28 13:12:12
360手机助手怎么关闭悬浮窗?关闭悬浮窗的操作步骤
2022-05-15 09:48:34
Mac电脑什么截图软件最好用?Snipaste for Mac实用截图教程
2022-03-17 07:36:52
笔记本Win10怎么设置触屏版?笔记本触摸板通用的开启方法
2022-11-20 12:29:35
什么是Excel的快速编号功能
2022-11-16 19:28:16
电脑如何创建带区卷,使硬盘速度翻倍
2023-04-18 12:01:14
wps表格如何设置打印每一页表头都有表头
2022-05-15 17:06:26
Word的超链接怎样能快速去除?
2023-11-30 22:11:03
word怎么输入2*4的矩阵? word宿儒矩阵的教程
2022-10-31 19:20:23
win8系统在新界面安装与使用硬件设备驱动详细图解
2022-12-26 22:18:11
惊!盗版Win10升级后仍然是盗版
2022-09-30 15:10:41
ppt标题文字怎么给偏旁部首添加虚化?
2022-10-09 04:31:25
Win10如何批量创建文件夹?Win10电脑批量创建文件夹的方法
2023-11-18 18:25:33
如何使用Movavi Screen Recorder在Mac上捕获流视频?
2023-10-12 04:24:49