XLS – 在VBA中复制和粘贴 – PasteSpecial方法失败

我正在努力解决一个唠叨的问题。 我正在尝试使用VBA将一个单元格论坛集合复制并粘贴到XLS工作表中。 工作表（wks1）创build并从一个AccessDB填充，否则工作正常。

错误：“范围类的PasteSpecial方法失败”

wks1.Range("P5:S5").Copy wks1.Range("P5:S10").PasteSpecial _ Paste:=xlPasteFormulas, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False 

我尝试了一些变化，但不断碰到这个错误味精。

任何build议，让这个工作？

Answer 1

做这个，而不是：

 wks1.Range("P5:S5").Autofill wks1.Range("P5:S10") 

要么

 wks1.Range("P5:S10").formula = wks1.Range("P5:S5").Formula 

对于特别的粘贴，我的经验是更less：

 wks1.Range("P5:S5").Copy wks1.Range("P5:S10").PasteSpecial xlPasteFormulas 

但是，当只有值或公式是为什么包括剪贴板？ 直接分配它们会更快更清洁。 所以我会使用复制/粘贴当超过值或公式是想要的。