如何在Excel中对包含“ /”的数字进行排序

时间:2018-10-30 07:47:40

标签: excel vba excel-vba

我在excel的同一行中有一些数字和一些数据

11        abc
12/2/2    def
13        ghi
12/2/1    jkl
12/1      mno

我该如何排序?

11       abc
12/1     mno
12/2/1   jkl
12/2/2   def
13       ghi

任何帮助将不胜感激。

1 个答案:

答案 0 :(得分:3)

您将需要一个“帮助程序”列,该列可从“数字”中创建不带斜线的文本。以文本形式对它们进行排序将提供您所需的顺序。完成其用途后,可以删除“帮助”列。

Sub Macro3()

    With Worksheets("sheet8")
        .Columns("A").Insert
        With .Range(.Cells(2, "A"), .Cells(.Rows.Count, "C").End(xlUp))
            .Columns(1).Cells.FormulaR1C1 = "=substitute(rc[1], char(47), text(,))"
            .Sort key1:=.Cells(1), order1:=xlAscending, _
                  Header:=xlNo
        End With
        .Columns("A").Delete
    End With

End Sub

enter image description here