使用剪贴板在Excel中复制/粘贴

Question

在使用剪贴板从PDF复制数据之后。我在clipboard中有三块数据，我想在Excel-2007中的不同位置进行Paste，比方说：

• 剪贴板3中的数据应该粘贴在A1中
• 剪贴板2中的数据应该粘贴在C1中
• 剪贴板1中的数据应该粘贴在E1中

VBA码

 ActiveSheet.Paste 

不在这里工作，它只会粘贴最后复制的东西。使用Clipboard Excel VBA 和如何处理是可能的吗？

​

​

Answer 1

我试着把一些东西复制到剪贴板上，然后用宏记录器把它粘贴起来。看到密码，我的看法是，你的问题的答案是“否”。

您自己看看代码，就会发现剪贴板的位置根本没有被引用：

Sub Makro2()
'
' Makro2 Makro
'

'
    Range("A2").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste
    Range("A5").Select
    Application.CutCopyMode = False
    Range("A4").Select
    Selection.Copy
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.CutCopyMode = False
    Range("C4").Select
    ActiveSheet.Paste
    Range("C6").Select
    ActiveSheet.Paste
    Range("D13:D14").Select
    Range("D14").Activate
    ActiveSheet.Paste
    Range("C15").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Range("A17").Select
    ActiveSheet.Paste
    Range("C18").Select
End Sub