EXCEL排序问题，求帮忙？？？
1#A101 1#A102 1#A201 1#A202 1#A301 1#A302 1#A401 1#A402 1#A501 1#A502怎样排序可以排成 1A#101 1A#201 1A#301 1A#401 1A#501 1A#102 1A#202 1A#302 1A#402 1A#502
需要借助辅助列，对数据处理后，再排序，这是个古老的方法。 假设上述数据在A列，请将B列的数据转移到其他地方。 将下面的代码插入VBA模块里。 Sub Sort() KT = 1 MW = [A65536]。End(xlUp)。Row For I = KT To MW SA = Trim(Cells(I, 1)) FZ = Mid(SA, 6, 1) + Mid(SA, 5, 1) + Mid(SA, 4, 1) Cells(I, 2) = Val(FZ) Next SortFW = "A1:B" + Trim(MW)'要排序的范围，可以修改B为更宽的范围 KeyFW = "B1:B" + Trim(MW)'辅助排序的列 ActiveSheet。
Sort。SortFields。Clear ActiveSheet。Sort。SortFields。Add Key:=Range(KeyFW), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveSheet。
Sort 。SetRange Range(SortFW) 。Header = xlGuess 。MatchCase = False 。Orientation = xlTopToBottom 。SortMethod = xlPinYin 。
Apply End With Range(KeyFW)。Clear End Sub。
1、假设题中资料在A1:A10。 2、在B1输入公式“=RIGHT(A1)”，向下复制到B10。 3、选中A1:B10，“数据/排序/主要关键字/列B/升序/确定”，A列即可得到希望结果。 4、最后，可将B列删除。
第12次提交！！！！！！！！！！！！ 借助辅助单元格！ 1、在B1中输入公式 =RIGHT(A1) 下拉复制 2、选定A1:B10后点“数据/排序”，先点选“无标题行”，然后在“主要关键字”下选“列B”，点选“升序”，最后“确定”。 3、清除B列中辅助单元格中的数据。
答：对，根据提问的时间来的，但如果哪个问题提问者又有了新的补充描述或者是提高了悬赏的话，问题则又会重新被提到前面来的。详情>>
