当Excel中的条件格式合并为Mac时粘贴特殊问题

我有一个简单的macros将单元格复制到另一个单元格,合并条件格式:

Sub test() Range("A2").Copy Range("A3").PasteSpecial Paste:=xlPasteAllMergingConditionalFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub 

A2的内容是1 ,有条件的规则就是=ISODD($A2) 。 当我在Excel 2016 Mac中执行macros时,出现此错误:

运行时错误“1004”:
对象'Range'的方法'PasteSpecial'失败

同样的macros在Excel for Windows中完美工作。

如果我使用xlPasteAll而不是xlPasteAll来更改XlPasteType选项,则macros将被执行而不会出错。

你可能没有所有的Mac的VBA的枚举和属性,所以你可以直接replace它的值。

这里用14replacexlPasteAllMergingConditionalFormats

因为对象浏览器(VBE中的F2)说:

 Const xlPasteAllMergingConditionalFormats = 14