时间戳

首页 > 解决方案 > 将转置的数据粘贴到新行

excel - 将转置的数据粘贴到新行

问题描述

我正在尝试在工作表 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

标签： excelvbaforms

解决方案

这行得通吗？

Sub Submit()

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

End Sub

您可以阅读本文以了解如何避免使用 Select/Activate。

推荐阅读