1樓:匿名使用者
b1=-lookup(,-mid(a1,match(true,isnumber(1*mid(a1,row($1:$20),1)),0),row($1:$20)))
按ctrl+shift+enter結束公式輸入,下拉填充
然後選中ab兩列,以b列數字為主關鍵字進行排序。
2樓:匿名使用者
開啟excel---按 alt+f11---左邊雙擊你這組資料所在的表 如 sheet1,在彈出的視窗裡面複製**進去,按 f5執行。
如果還是不會,可以把表發我郵箱,我幫你放進去。
sub 排序()
dim i as long, j as long, arr()
dim n as long
for i = 1 to range("b65536").end(xlup).row
for j = 1 to len(range("b" & i).text)
if isnumeric(mid(range("b" & i).text, j, 1)) then
redim preserve arr(n)
arr(n) = val(mid(range("b" & i).text, j)) & "," & range("b" & i).text
n = n + 1
exit for
end if
next
next
call paixu(arr)
for i = 0 to ubound(arr)
range("b" & i + 1) = split(arr(i), ",")(1)
next
end sub
private function paixu(byref arr()) '冒泡法排序
for i = ubound(arr) to lbound(arr) step -1
for j = lbound(arr) to i - 1
if val(arr(i)) < val(arr(j)) then
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
end if
next
next
end function
請教高手:用excel怎樣給一組數字排序?謝謝指點! 10
Excel中如何在一單元格隨意輸入一組小寫金額,在另單元格會自動顯示其大寫金額
假如輸入的小寫金額在a1單元格,公式 if a1 0,if int a1 text trunc a1 dbnum2 元 if mod a1,1 0,整 if trunc a1,1 if a1 trunc a1,1 text left right a1 100,2 dbnum2 0角整角 0分 tex...
excel中如何將一組資料進行組合數字1 8進行組合,每組數字,是否有公式可以直接導用
可用函式 combin 8,6 算出組數28用程式得出各組合 sub eightsix for i1 1to 3 for i2 i1 1 to 4 for i3 i2 1 to 5 for i4 i3 1 to 6 for i5 i4 1 to 7 for i6 i5 1 to 8 m m 1 ra...
如何在excel裡生成一組資料,要求cpk大於
我是來嚇寶寶的 不斷把相關資料代入公式,計算,過程中用excel表調整資料 不斷調整相關引數,得不同得cpk值 看什麼條件才能達到客戶得要求 cpk complex process capability index 的縮寫,是現代企業用於表示製成能力的指標。cpk值越大表示品質越佳。cpk min ...