excel文件怎么把表格横排快速变成竖排

如题所述

A5输入

=OFFSET($A$1,INT(ROW(A3)/3)-1,MOD(ROW(A1)-1,3))

公式下拉

温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-11-27
excle在选中表格后点击复制粘贴,在粘贴的时候选择选择性粘贴,然后点击下方的转置就可以了追答

第2个回答  2017-11-27

Sub ab() '竖者排列的多列range区域变为一列
    Dim rng As Range
    Dim lr As Integer, lr2 As Integer
    Dim lc As Integer, lc2 As Integer
    Dim i As Integer, J As Integer, t As Integer, u As Integer
    Dim ARR
    Dim BRR
    On Error GoTo msg
    Set rng = Selection

    lr = rng.Rows.Count
    lc = rng.Columns.Count

    i = lr * lc
    ReDim BRR(1 To i, 1 To 1)

    ARR = rng

    m = 0


    For u = 1 To lc

        For t = 1 To lr
            m = m + 1

            BRR(m, 1) = ARR(t, u)

        Next
    Next
    lc2 = rng.End(xlDown).Column
    lr2 = rng.End(xlDown).Row

    Cells((lr2 - lr + 1), lc2).Resize(i, 1) = BRR
    Exit Sub
msg:
    MsgBox ("请选择需要标记的区域!")
End Sub

vba 代码

选中区域后 运行 变成一列 (排列规则 :按列)

本回答被提问者采纳
相似回答