excel - excel中使用sub排序，排序不正确

Question

我想对工作表中包含测试用例 ID 的特定列进行排序，我当前的排序子(如下所示)将其排序为

 1.1.1
 1.1.12
 1.1.15
 1.1.2
 1.1.22
 1.1.3

是因为它把它当作字母数字数据吗？

如何让它正确排序？

1.1.1
1.1.2
1.1.3
1.1.12
1.1.15
1.1.22

我的子功能:

    Function sortSheet(ByVal sheet As Excel.Worksheet)
    Dim oneRange As Range
    Dim aCell As Range
    Dim lastRow As Long, lastCol As Integer

   'Calculating the last row and column
   lastRow = sheet.Cells(Rows.Count, 1).End(xlUp).row
   lastCol = sheet.Cells(1, Columns.Count).End(xlToLeft).Column

   'Setting the range in which sorting is to be done
    Set oneRange = sheet.Range(sheet.Cells(2, 1), sheet.Cells(lastRow, lastCol))

   'Setting the range according to which it will be sorted
    Set aCell = sheet.Range("A2")
   'Sorting
    oneRange.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlGuess

    End Function

Answer 1

辅助列中的正确公式可以快速解决此问题。

            

B2中的公式为，

=TEXT(LEFT(A2, FIND(".", A2)-1), "000")&TEXT(MID(A2, FIND(".", A2)+1, 9), "000")&TEXT(MID(A2, FIND(".", A2, FIND(".", A2)+1)+1, 9), "000")

根据需要填写。这是有效的，因为多级序数的“片段”数量是静态的。如果必须容纳 1、2 或 3 个部分，则公式会更加复杂。