单元格区域内的数字排序问题

fmlshq

谢谢
你的结果是从第一行到第二行依次从小到大排列的，我说的按列是指从第一列到第二列依次从小到大排列

[ 本帖最后由 fmlshq 于 2011-5-28 22:06 编辑 ]

yang504165668

按列排序，其实公式的原理都差不多

fmlshq

是的，其实后面想想就没太注重这个问题


去年上班经常和数据打交道，EXCEL用的多一点，今年换了工作，用的少了，本来就不怎样，所以现在对你答案理解起来觉得费力了，看样子以后要多多练习了，

谢谢你的帮助

ykcbf1100

借题练习：VBA横向排序

ykcbf1100

1. Sub ykcbf()   '//2025.3.27    横向排序
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         c = .UsedRange.Find("*", , -4163, , 2, 2).Column
   
5.         arr = .Range("a1").Resize(r, c)
   
6.         For i = 2 To UBound(arr)
   
7.             Set Rng = .Cells(i, 1).Resize(, c)
   
8.             Rng.Sort Rng.Columns(1), 1, Orientation:=2
   
9.         Next
   
10.     End With
    
11. End Sub
    

复制代码

mjm04

=WRAPCOLS(SORT(TOCOL(A1:I19*1)),20,"")

或

=WRAPROWS(SORT(TOCOL(A1:I19*1)),9,"")