怎么将excel横纵互换？

选择，粘贴时选择性粘贴，下面有一个转置，就可以横纵互换

第一选择复制后 点击右键 选择数字或者其他单元格类型，然后选择转置 ，粘贴即可。第二 用transpose函数

选择，粘贴时选择性粘贴，下面有一个转置，就可以横纵互换
赫赫，这是偷懒做法

Sub 行列转置()
Dim arr
Dim d As Object, i&, K&, RowN&, ColN&
arr = Range(Sheet1.[A2], Sheet1.[b2].End(xlDown))
'利用字典去重复，并记录行号
Set d = CreateObject("Scripting.Dictionary")
Sheet2.Cells.ClearContents
For i = 1 To UBound(arr, 1)
If Not d.exists(arr(i, 1)) Then
K = K + 1
d(arr(i, 1)) = K
End If
RowN = d(arr(i, 1))
ColN = Sheet2.Cells(RowN, 256).End(xlToLeft).Column + 1
Sheet2.Cells(RowN, ColN) = arr(i, 2)
Next i
Sheet2.[A1].Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub

将原内容复制，选择需要的位置起始单元格，选择性粘贴--复选“转置”--确定。