excel2016多行数字排序问题

发布网友 发布时间：2022-03-06 06:07

我来回答

共3个回答

热心网友 时间：2022-03-06 07:36

你这是需要每一行排序依次，每一次选择一行，排序时候要确认【当前区域】，选【行】排序，如下图：

追问一行一行太麻烦了，因为有时候有上百行，我想多行一次排序完，可以吗

追答

编程序可以实现，系统菜单点鼠标不可以的，程序代码：

Sub 宏1()
    Dim i&
    With ActiveSheet
        For i = 1 To .UsedRange.Rows.Count
            .UsedRange.Rows(i).Select
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=.UsedRange.Rows(i), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With .Sort
                .SetRange Selection
                .Header = xlNo
                .MatchCase = False
                .Orientation = xlLeftToRight
                .SortMethod = xlPinYin
                .Apply
            End With
        Next i
    End With
End Sub

热心网友 时间：2022-03-06 08:54

第1个单元格中输入公式：
=SMALL($A$1:$I$5,ROW(A1)+(COLUMN(A1)-1)*ROWS($A$1:$I$5))
右拉下拉
再次修改公式，右拉下拉不限行数和列数，可以直到拉出空白行和空白列：
=IF((ROW(A1)>ROWS($A$1:$A$5))+(COLUMN(A1)>COLUMNS($A$1:$I$1)),"",SMALL($A$1:$I$5,ROW(A1)+(COLUMN(A1)-1)*ROWS($A$1:$A$5)))
根据实际数据范围修改公式中行数5和列标D到实际的行数和列标。

热心网友 时间：2022-03-06 10:29

假设数据在SHEET1，在SHEET2的A1用公式：
=IFERROR(SMALL(Sheet1!1:1,COLUMN(B1)),"")
右拉，下拉。