Sub 转置()
Dim Rc%
Rc = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Sheet1.Range("A5:BK" & Rc).Copy
With Sheet2
.Range("3:65") = ""
.Range("A3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Union(.Rows("65:65"), .Rows("59:63"), .Rows("55:56"), .Rows("28:29"), .Rows("21:25"), _
.Rows("19:19"), .Rows("12:15"), .Rows("4:10")).Delete
End With
End Sub