在目标词之间对 AZ 大文件进行排序

Question

我有一个大文本。 有一个例子，我想在这个例子中只对 AZ 数字进行排序，我不想每次都选择和排序每个类别，也许可以在一个动作中完成？

apple
20
50
10
40
oranges
30
10
50
60
Bananas
10
5
80
10

Answer 1

根据我的评论，您当前的数据设置很容易通过 VBA 进行排序。 不由自主地想出了以下几点：

---

_{样本数据：}

---

_{示例代码：}

Sub Test()

Dim rng As Range, area As Range
Dim lr As Long

With Sheet1 'Change according to your sheets CodeName
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set rng = .Range("A1:A" & lr).SpecialCells(xlCellTypeConstants, 1)
    For Each area In rng.Areas
        area.Sort area
    Next area
End With

End Sub

---

_结果：