数据量比较大，约5000行，要能每10行自动行列互换，而不是5000行整体行列互换

数据量比较大，约5000行，要能每10行自动行列互换，而不是5000行整体行列互换

数据量比较大，约5000行，要能每10行自动行列互换，而不是5000行整体行列互换

数据量比较大，约5000行，要能每10行自动行列互换，而不是5000行整体行列互换

额 这个 我没试过 不清楚哎 抱歉

还是谢谢

我估计得用VBA编写程序，感觉上不难，但是我也没做过，应该就是一个循环

可以到EXCEL中查找下，详细步骤忘记了

录制宏，开macro. 在开发者选项中打开。

如何实现Excel表格中的行列互换？_360问答  [url]http://wenda.so.com/q/1372906673067124[/url]

用排序的办法，为数据遍两列编号，第一列1-5000，第二列1-100，排序优先第一列从小到大，第二列从大到小

多表复制——选择性粘贴——转置

Sub 10行10列转置粘贴()
    i = 1
    While i < 5000
        cell(i, 0).Resize(10, 10).Select
        Application.CutCopyMode = False
        Selection.Copy
        Application.CutCopyMode = False
        Selection.Copy
        cell(i, 11).Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
        Selection.Copy
        cell(i, 0).Selectt
        ActiveSheet.Paste
        cell(i, 11).Resize(10, 10).Select
        Application.CutCopyMode = False
        Selection.ClearContents
        i = i + 10
    Wend
End Sub

选择性粘贴

或者再开一个book把要调整的复制过去

公式法转置，不知道是不是你想要的，开拓一下思路吧

可以用vba做到这一点，代码如下
Sub cccc()
For i = 0 To 4
For k = 1 To 10
temp = Cells(i * 10 + k, 1)
Cells(i + 1, k + 2) = temp
Next k
Next i
End Sub
效果如图示：

直接转置就行了

转置呗