復制一個單元格並粘貼到一系列單元格中的第一個空白行

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