使用宏VBA在excel中转​​置n列

Question

问候语    我是VBA的新手并且出类拔萃。我需要将N列从一个工作表转换到另一个带有宏的工作表.PS我需要一个不使用预定义复制的宏并在excel中粘贴转置并感谢您的帮助

Answer 1

试试此代码

Sub Transpose_Data_From_Vertical_To_Horizontal()
Dim ws          As Worksheet
Dim sh          As Worksheet
Dim arr         As Variant

Set ws = ThisWorkbook.Worksheets("Sheet1")
Set sh = ThisWorkbook.Worksheets("Sheet2")
arr = Application.Transpose(ws.Range("N1:N" & ws.Cells(Rows.Count, 
14).End(xlUp).Row).Value)

sh.Range("A1").Resize(, UBound(arr)).Value = arr
End Sub