excel中如何让部分行列进行互换

加菲猫1989 发表于 2016-5-3 15:23
数据量比较大，约5000行，要能每10行自动行列互换，而不是5000行整体行列互换

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

梨子杳 发表于 2016-5-3 15:27
额 这个 我没试过 不清楚哎 抱歉

还是谢谢

我估计得用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

选择性粘贴