我想用宏实现以下功能：

行列互换？转置一下吗？

Sub NewSheetPaste()
Dim rngMyrang As Range
Dim lTem As LongPtr, lColumn As LongPtr
lColumn = Range("a1").End(xlToRight).Column
For lTem = 1 To Range("a1").End(xlDown).Row
Sheets("Sheet1").Range("a" & lTem).Resize(1, lColumn).Copy
Sheets.Add Before:=ActiveSheet, Count:=1
Range("a1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next lTem
End Sub

或者试下
Sub test()
Dim arr, r%
arr = Application.Transpose(Range("a1").CurrentRegion.Value)
For r = 1 To UBound(arr, 2)
With Sheets.Add(after:=ActiveSheet)
.Range("a1").Resize(UBound(arr), 1) = Application.Index(arr, , r)
End With
Next
End Sub