不连续单元格如何复制贴成值？

chou680702 · 发表于 2018-5-26 21:29

请教各位大大，因工作上常需要对于不连续单元格要运用复制贴成值，但系统均显示「无法在不相邻的范围执行此命令」，

请问是否有什么方法可以解决？VBA公式是否也有解决方法？

set2get · 发表于 2018-5-26 22:36

添加如下模块

Sub test()
For Each i In Selection
Selection(i) = Selection(i)
Next
End Sub

复制代码

ctrl+点击选中要复制的不连续单元格 ctrl+c复制（如A1 A2 A3 A6 A7)
ctrl+点击选中要粘贴的不连续单元格（或选中待粘贴列区域 ctrl+G定位空值的区域) 如B1 B2 B3 B6 B7
选完后，先别放开ctrl，重复再点击一下第一格(B1)，放开ctrl键，输入= ，然后点击一下 A1
最后按ctrl+Enter批量填充

保持粘贴区域被选中（不要乱动鼠标点击），开发工具，宏，执行上面的 test模块，就可以去除公式了。

chou680702 · 发表于 2018-5-27 06:57

第一个步骤看起来好像不是必要，是吗？
ctrl+点击选中要复制的不连续单元格 ctrl+c复制（如A1 A2 A3 A6 A7)-->复制完并未黏贴到其他位置
另，是否有办法在同一列(column)执行，如A1 A2 A3 A6 A7，不需要在邻近列，因为作业上往往左右二边都是其他资料

set2get · 发表于 2018-5-27 09:32

chou680702 发表于 2018-5-27 06:57
第一个步骤看起来好像不是必要，是吗？
ctrl+点击选中要复制的不连续单元格 ctrl+c复制（如A1 A2 A3 A6 ...

那就选中要去除公式的单元格直接运行我给你的宏就可以了

chou680702 · 发表于 2018-5-27 10:28

可以了，谢谢
这个做法是否只能透过vba，没有其他做法吗？

set2get · 发表于 2018-5-27 22:00

chou680702 发表于 2018-5-27 10:28
可以了，谢谢
这个做法是否只能透过vba，没有其他做法吗？

貌似没更好的方法了

chou680702 · 发表于 2018-5-29 13:28

不好意思，如果是使用其他储存格的公式，执行VBA后还是不行

不知是否有什么限定？

201228 · 发表于 2018-6-5 06:34

我有事也有这个需求，收藏研究下代码

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