vba - Excel VBA : Paste problems

Question

我尝试了多种方法来粘贴此粘贴，但都不起作用。我对编程非常陌生，因此我需要一些帮助来理解为什么我不断收到错误 1004 或 5。我什至不明白这些错误的含义。

Cells(hotcell).Copy
Cells.Offset(0, 1).PasteSpecial

或 ...Paste, ...PasteSpecial = xlpasteall, ...pastespecial 粘贴:= xlpasteall, Range(Cells("B"& i)).paste, Range("B"& i).paste,等等如上所述。

我彻底迷失了。程序中的其他一切都运行良好。我只是无法让它将复制的值粘贴到所需的单元格中(全部偏移一定数量的列，但在同一行中)。感谢帮助和解释。

编辑感谢我收到的两个答案，我能够解决我的问题。我确实在任何地方都找不到好的答案。谢谢!

我使用的解决方案是最简单的解决方案之一:

rng.Offset(0, 1) = rng.Text

再次感谢回复和评论的发帖者。我把事情搞得太困难了。

Answer 1

解决此类问题的方法有很多，因此我将尝试列出一些我使用的方法。

无粘贴方法

Sub CP1()
    'This basically just transfers the value without fuss.
    Dim Rng As Range
    Set Rng = Range("A1")
    Rng.Offset(0,1) = Rng.Value
End Sub

简单的粘贴方法

Sub CP2()
    'This copies a cell exactly as it is.
    Dim Rng As Range
    Set Rng = Range("A1")
    Rng.Copy Rng.Offset(0,1) 'Read: Copy Rng to Rng.Offset(0,1).
    Application.CutCopyMode = False
End Sub

特殊粘贴方法

Sub CP3()
    'This copies the format only.
    Dim sRng As Range, tRng As Range
    Set sRng = Range("A1")
    Set tRng = sRng.Offset(0, 1)
    sRng.Copy
    tRng.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
End Sub

尝试从以上三个中确定您想要的并进行相应修改。 ;)

希望这有帮助。