[我正在尝试在工作表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
这项工作吗?
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以了解如何避免使用选择/激活。