将转置后的数据粘贴到新行中

Question

[我正在尝试在工作表1（命名为表单）的Excel中创建一个表单，将从工作表1（表单）复制的数据粘贴到工作表2（数据）。

表格是垂直的；但是，数据是水平的。

因此，我正在使用PasteSpecial。

[当我使用宏按钮将数据从“表单”粘贴并清除到“数据”时，它适用于第一次和第二次使用。在第三次使用时，数据将粘贴到第二组数据上，而不是粘贴到新行上。

Sub Submit()  
    '  
    ' Submit Macro  
    '  

    '  
    Range("C2:C14").Select  
    Selection.Copy  
    Sheets("Data").Select  
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
      :=False, Transpose:=True  
    Range("A3").Select  
    Sheets("Form").Select  
    Application.CutCopyMode = False  
    Selection.ClearContents  
    Range("C2").Select  
End Sub

Answer 1

这项工作吗？

Sub Submit()

Sheets("Form").Range("C2:C14").Copy
Sheets("Data").Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Transpose:=True

End Sub

您可以阅读this以了解如何避免使用选择/激活。