VBA如何快速复制单元格的公式和格式？

Question

[最新发现]我发现value(11)有时实际上可以复制公式，但并非总是如此。 sumproduct 和 sumif 等公式无法复制，但可以复制简单的算术运算。这太奇怪了!我仍然不明白为什么。

我知道如果我只想复制值，最快的方法是

Range("A1").Value = Range("A2").Value

如果我想复制格式和值，最快的方法是

Range("A1").Value(11) = Range("A2").Value(11)

如果我想复制公式，最快的方法是

Range("A1").Formula = Range("A2").Formula

如果我想复制公式和格式怎么办？ (我在该单元格中有很多格式，例如条件格式、粗体、下划线、对齐方式、数字显示格式、边框样式等，因此一次传输每种样式是不切实际的。)

Answer 1

我刚刚找到了一个简单的答案。

Range("A1").Value(11) = Range("A2").Value(11)
Range("A1").Formula = Range("A2").Formula

由于复制一些复杂公式时value(11)失败(我不知道为什么，应该是Excel中的一个错误)，我添加了第二行来再次粘贴公式。这应该确保所有公式都被正确复制。