在目標詞之間對 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

---

_結果：