只对条件格式的显示结果进行“选择性粘贴”，去除条件格式规则

yinxingbaoshu · 发表于 2012-1-30 16:41

本帖最后由 yinxingbaoshu 于 2012-1-31 16:20 编辑

“条件格式”工作表中B4：H7中含有条件格式。

现希望将该工作表中的该区域，内容复制到“粘贴格式”工作表中，然后将格式也粘贴过去。但对于条件格式不粘贴，而是直接将条件格式的结果粘贴过去。请帮忙设计代码，谢谢！

ggsmart · 发表于 2012-1-30 16:57

选粘贴过去，再把条件格式删掉。
把这个操作录制成宏，精减一下就OK了

kevingarnett198 · 发表于 2012-1-30 17:04

条件格式是属于格式的一种, 可以实现吗？

ggsmart · 发表于 2012-1-30 17:16

kevingarnett198 发表于 2012-1-30 17:04
条件格式是属于格式的一种, 可以实现吗？

如要复制A1单元格，则：

Sub ggsmart()
Worksheets("Sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1") '复制A1单元格
Worksheets("Sheet2").Range("A1").FormatConditions.Delete '删除条件格式
End Sub

复制代码

相应的单元格和工作表名自己更改

kevingarnett198 · 发表于 2012-1-30 17:23

ggsmart 发表于 2012-1-30 17:16
如要复制A1单元格，则：相应的单元格和工作表名自己更改

这样做并没达到楼主要的效果啊, 把条件格式清除后, 条件格式所显示的颜色也没了...应该要先把条件格式所设定的颜色读取出来吧...

yinxingbaoshu · 发表于 2012-1-30 20:23

条件格式判断哪个单元格红色填充。
也就是说，红色填充的单元格，是条件格式在起作用。
现在希望复制后，相应的单元格仍是红色填充，但不是条件格式在起作用。

79bookmark · 发表于 2012-1-30 20:53

录制个宏就OK了.

ggsmart · 发表于 2012-1-30 21:23

kevingarnett198 发表于 2012-1-30 17:23
这样做并没达到楼主要的效果啊, 把条件格式清除后, 条件格式所显示的颜色也没了...应该要先把条件格式所设 ...

如果保留条件格式生成的格式，那就通过剪帖板粘贴，这样即删除了条件格式公式，也保留了原来的格式

yinxingbaoshu · 发表于 2012-1-30 23:09

本帖最后由 yinxingbaoshu 于 2012-1-30 23:09 编辑

能否详细些，可否录制为宏？
我的是2010版……

yinxingbaoshu · 发表于 2012-1-30 23:27

ggsmart 发表于 2012-1-30 21:23
如果保留条件格式生成的格式，那就通过剪帖板粘贴，这样即删除了条件格式公式，也保留了原来的格式

谢谢，但录的宏执行出错啊……
Sub 宏1()
'
' 宏1 宏
'

'
Sheet1.Activate
Range("B4:H7").Select
Selection.Copy
Sheets("粘贴格式").Select
Application.CutCopyMode = False
ActiveSheet.Paste 出错行
' Application.CommandBars("Office Clipboard").Visible = False
Range("O21").Select
End Sub

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

[求助] 只对条件格式的显示结果进行“选择性粘贴”，去除条件格式规则

点评