怎么才能复制excel表格里的条件格式啊？也就是右键粘贴里的条件。

freestep · 发表于 2019-7-6 09:31

用vba处理Excel表格，拷贝单元格条件格式，使用pastespecial 方法时，发生类 range 的 pastespecial 方法无效。请问这是什么原因导致的？

该如何才能实现复制这个“条件格式”啊？也就是右键粘贴里的“条件”。

hfwufanhf2006 · 发表于 2019-7-7 08:56

直接copy复制就好了，任何参数都不要：
cells(1,1).copy cells(1,3)
把a1复制到c1，包含格式在内全部复制。等同于ctrl+v

cui26896 · 发表于 2019-7-7 21:30

本帖最后由 cui26896 于 2019-7-7 22:43 编辑

图3.jpg

按需要设定copy格式即可。按附件给的代码对号一个个的输入试试就知道了。

freestep · 发表于 2019-7-10 11:11

hfwufanhf2006 发表于 2019-7-7 08:56
直接copy复制就好了，任何参数都不要：
cells(1,1).copy cells(1,3)
把a1复制到c1，包含格式在内全部复制 ...

那么简单就不用问了

freestep · 发表于 2019-7-10 11:12

cui26896 发表于 2019-7-7 21:30
按需要设定copy格式即可。按附件给的代码对号一个个的输入试试就知道了。

大哥。。不行啊。。。。。。

爱疯 · 发表于 2019-7-10 11:57

a列的格式是斜体，条件格式是>2

试了下，相当于手动改条件格式的应用区域。这是07开始的方法
Cells.FormatConditions(1).ModifyAppliesToRange Range("a1:a5,c1:c5")

1.rar (14.8 KB, 下载次数: 2)

cui26896 · 发表于 2019-7-10 13:12

freestep 发表于 2019-7-10 11:12
大哥。。不行啊。。。。。。

是那里不行，你不会截图，最起码用语言来描述一下，具体是那里不行，你是做了什么，没有变化，还是做了，变化同预想的不一样，是哪种变化，就老说不行，这让别人怎样知道问题在哪里呀？

高 · 发表于 2019-7-10 16:54

Sub 把a1的格式复制到i1至i100()
Range("A1").Copy
Range("i1:i100").PasteSpecial Paste:=xlPasteFormats
End Sub
已经试了，没有问题，条件格式被复制过去了

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