Excel：如何像数据透视表一样对一系列带有前导零的数字进行排序？

Question

我需要对工作表上的一系列数字进行排序，以匹配数据透视表中第二组非常相似的数据所做的排序。这些数字是字符串格式，因为其中一些以 0、00 等开头。

删除前导零不是一种选择，因为这会重复条目（例如，我有 056 和 0056）。

字符串的长度不同，不仅仅是因为前导零。

默认情况下，数据透视表是这样排序的（似乎只将数字排序为字符串）：

基本上我需要这样的顺序：

00056
00182
01097
100
106
10610
109
86930
870032
87035
...

我尝试过的事情：

1. 在工作表上将任何看起来像数字的东西作为数字进行排序；
2. 分别对数字和文本进行排序；
3. 按自定义列表排序，其中自定义列表是数据透视表中的数据集。

您似乎不能强制 Excel 将一系列数字单独排序为字符串，而数据透视表似乎没有问题。

我宁愿不必同时旋转第一组数据，我只需像透视表一样对其进行排序！

有什么想法吗？

提前致谢，

附：我真的只是在寻找这个问题的答案，而不是解决不同问题或关于我为什么要首先这样做的问题，谢谢！

Answer 1

插入一个新列并将尾随零填充到所有值的相同长度。以该列作为主键进行排序，然后删除该列。

Option Explicit


Sub funnySort()

    With Worksheets("sheet2")
        .Columns("A").Insert
        .Range(.Cells(2, "A"), .Cells(.Rows.Count, "B").End(xlUp).Offset(0, -1)).Formula = _
            "=LEFT(B2&REPT(0, 9), 10)"
        With .Range(.Cells(1, "A"), .Cells(.Rows.Count, "B").End(xlUp))
            .Sort Key1:=.Cells(1), Order1:=xlAscending, _
                  Orientation:=xlTopToBottom, Header:=xlYes
        End With
        .Columns("A").Delete
    End With

End Sub