将行值复制并粘贴到下一个空行

Question

我试图从名为“报告”的工作表（数字会改变）中复制同一行信息，并将值粘贴到第一行有标题的工作表“数据”中。

我尝试从各种问题中拼凑出一些代码。

这是我的代码：

Sub Insert_Data()
'
' Insert_Data Macro
Sheets("Report").Range("B9:F9").Copy
Sheets("Data").Range("A1").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Sub PSData_Transfer()

Sheets("Report").Range("B9:F9").Copy

Dim lastrow As Long
lastrow = Sheets("Data").Range("A65536").End(xlUp).Row

Sheets("Data").Activate
Cells(lastrow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Answer 1

您可能需要稍微修改一下以使用您的代码，但请随意使用我在当前工作表中使用的我的，它运行完美！

Sub Insert_Data()

    For R = LR To 2 Step -1   ' Change the 2 in "To 2" to the row just below your header,
                              ' but typically row 2 is the second cell under header anyways
        Call CopyTo(Worksheets(2).Range("B" & R & ":C" & R), Worksheets(1)Range("A:B"))
    Next R

End Sub

Private Function CopyTo(rngSource As Range, rngDest As Range)

    LR = rngDest.cells(Rows.Count, 1).End(xlUp).row

    rngDest.cells(LR + 1, 1).value = rngSource.cells(1, 1).value
    rngDest.cells(LR + 1, 2).value = rngSource.cells(1, 2).value

End Function

我不喜欢使用 copy 方法，因为它很慢，它喜欢复制所有额外的 jargin，因为获取值要快得多，而且它只检索值