树街猫:
第一步:按Alt+F11打开VBA代码编辑器第二步:点击“插入”----插入模块第三步:在左侧双击模块,然后在右侧粘贴代码。第四步:将鼠标放在代码内部的任意位置,不要放在代码上方或代码下方,然后点那个画粉红色圆圈的按钮运行代码。即可在F列自动得出结果。粘贴在下方,供复制:Sub数字排序()Dimi%,t%,s%,iRow&,iCi$,iStr$,arr(1To10)iRow=Range("A"&Rows.Count).End(3).Row'赋值iRow等于A列非空单元格的最大行号Fori....