比较差异与标准偏差

我有一个范围从B3到G3的值。

我想find标准偏差，并使用

工作表（“Sheet2”）。范围（“A1”）= WorksheetFunction.StDev_S（工作表（“Sheet2”）。范围（“B3：G3”））

但是我需要找出B3和C3，C3和D3等之间的差异，然后将其与上面的标准差进行比较。 我如何创build一个循环来做到这一点？

Answer 1

请尝试

Sub mycalc() Dim ws As Worksheet Set ws = Worksheets("Sheet2") Dim rng As Range Set rng = ws.Range("B3:G3") ws.Range("A1") = WorksheetFunction.StDev_S(rng) Dim i As Integer For i = 1 To rng.Cells.Count rng.Cells(2, i).Value = rng.Cells(1, i).Value - rng.Cells(1, i + 1).Value Next i End Sub 

这个代码非常自我解释。 你应该填充循环的内部。