Question

我想从一个工作表中复制一个单元格，然后将值粘贴到另一个工作表中一系列单元格中的第一个空白单元格中。

我发现了一些几乎可以正常工作的代码，但是它粘贴了格式和公式。

Sub dural()
    Dim r1 As Range, r2 As Range
    Set r1 = Sheets("GHIN").Range("D151")
    Set r2 = Sheets("Monthly").Range("I56").End(xlUp).Offset(1, 0)
    r1.Copy r2
End Sub

除了我只希望粘贴特殊值之外，这行得通。

Answer 1

Sheets("Monthly").Range("I56").End(xlUp).Offset(1, 0) = Sheets("GHIN").Range("D151").Value

Answer 2

尝试下面的代码。

Sub dural()
    Dim r1 As Range, r2 As Range
    Set r1 = Sheets("GHIN").Range("D151")
    Set r2 = Sheets("Monthly").Range("I56").End(xlUp).Offset(1, 0)

    '//Copy r1 (cell format, value...)
    r1.Copy

    '//Paste special in the desired cell. You can add/change parameters if you want
    r2.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

复制一个单元格并粘贴到一系列单元格中的第一行空白

2 个答案: