vba - 在下一个空行的不同工作表中复制并粘贴(转置和值)设置范围

Question

我在名为“训练分析”的工作表上有一些 range P1:R13 中的数据。我想将这些数据复制并粘贴到另一个名为 Foglio1 的工作表上。我希望它只是 values。我需要将这些数据粘贴到 range A2:M4 中，换句话说，我希望将其转置。我得到了以下代码并且它正在运行。但是现在，当我获得新数据时，我需要将它们粘贴到我已有的数据下。

Sub add()
    Dim lastrow As Long
    lastrow = Sheets("Foglio1").Range("A65536").End(xlUp).Row    ' or + 1
    Range("P1:R13").Copy Destination:=Sheets("Foglio1").Range("A" & lastrow)
End Sub

它做空的空间，但我不知道如何更改它以使其转置数据并只给我值。你能帮我改一下吗？如果您有新的选择，那也很好。干杯

Answer 1

当你遇到这样的问题时，你需要做的是录制一个宏，了解它的工作原理，然后清理代码。

这是您手动完成所需操作并记录后得到的结果:

Range("P1:R13").Select
Selection.Copy
Sheets("Foglio1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True

稍微清理一下并添加确定最后一行后，这就是您应该得到的:

Dim lastRow As Long
Sheets("Training Analysis").Range("P1:R13").Copy

lastRow = Sheets("Foglio1").Range("a65536").End(xlUp).Row

Sheets("Foglio1").Range("A" & lastRow + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True

在这种特殊情况下，您不知道需要使用 PasteSpecial 方法，但这没关系:您不需要记住整个 Excel 对象模型。每当您遇到这种情况时，您都可以使用“记录、清理和修改”方法。