2014-01-25 40 views

回答

0

我會同時使用,下面的代碼分裂/排序你行,並選擇每隔一行,並粘貼到另一列,與第一小區開始:

Sub splitcells() 

Dim rows As Long 

Dim i, j As Long 

j = 0 

rows = ?1? 

For i = ?2? To rows Step 2 

    Cells(i - j, ?4?).Value = Cells(i, ?3?).Value 

    j = j + 1 

Next 

End Sub 

然後,你必須更換:

?1? - 列表中的最後一行數字

?2? - 與你的清單的起始行號碼

?3? - 要排序的列表的列號

?4? - 目標列的列號(發送到排序數據的列號)

完成此操作後,只需在新列上運行正常標準偏差函數即可獲得答案。

+0

非常感謝,它的工作..我的很多時間都得到了保存。 – user3218696

3

這也可能與一個公式。這種 「數組公式」 爲您提供了其他各小區的標準偏差起始於A1

=STDEV(IF(MOD(ROW(A1:A10000)-ROW(A1),2)=0,A1:A10000))

確認與CTRL + SHIFT + ENTER

+0

+1不錯。非常好。 – brettdj