对ActiveX Combobox列表数据进行排序

Question

我有一个ActiveX组合框，它从郊区列表中获取数据，这些郊区列表按字母顺序出现在我的电子表格中。郊区有分配给他们的等级，但重要的是他们从我的组合框中出现的顺序是基于等级。它们需要按字母顺序保留在电子表格中。

有没有办法在Excel中使用或不使用VBA？

Answer 1

一种方法是按排名排序，填充框，然后按字母顺序重新排序以恢复到原始状态。

Set r = Sheet1.Range("C4:D7") ' or wherever your data is located
r.Sort r.Columns(2), xlAscending ' sort by rank
Sheet1.ComboBox1.List = WorksheetFunction.Transpose(r.Columns(1))
r.Sort r.Columns(1), xlAscending ' sort by suburb name