关于筛选后　复制后　在原区域粘贴成数值

zyx0815 · 发表于 2017-5-11 09:06

本帖最后由 zyx0815 于 2017-5-11 09:09 编辑

各位老师：　早上好，关于筛选后　复制后　在原区域粘贴成数值，有没有快速的解决办法，谢谢
原因：D列有公式，但我只想个别类型的公式转成数值，又要保留其它类型的公式

请移步查看附件。

复制粘贴.rar (77.73 KB, 下载次数: 27)

xiang当当 · 发表于 2017-5-11 10:00

我试了下，完全没有出现问题

zyx0815 · 发表于 2017-5-11 13:42

xiang当当发表于 2017-5-11 10:00
我试了下，完全没有出现问题

有这么神奇？？？

请看我的操作动作

meziren · 发表于 2017-7-23 15:41

本帖最后由 meziren 于 2017-7-23 15:42 编辑

顶一记。我excel2013也是碰到同样的问题。
我了解到，早一些的excel版本, 在筛选后的复制时，自动复制所有的内容（包括筛选时被筛掉的内容）。这样在粘贴时，可能是全部内容都有粘贴，可能也不会报错。

conquerk · 发表于 2017-7-23 19:20

试一下定位可见单元格

准提部林 · 发表于 2017-7-23 19:44

Sub Macro1()
Dim xArea As Range
With ActiveSheet
　　If .FilterMode = False Then Exit Sub
　　For Each xArea In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas
　　　　xArea.Value = xArea.Value
　　Next
End With
　
　
End Sub

清夭 · 发表于 2022-3-24 23:49

准提部林发表于 2017-7-23 19:44
Sub Macro1()
Dim xArea As Range
With ActiveSheet

感谢大神的代码！！！

		自动登录	找回密码
密码			免费注册

[讨论] 关于筛选后 复制后 在原区域粘贴成数值

[讨论] 关于筛选后　复制后　在原区域粘贴成数值