将差异与标准偏差进行比较

Question

我有一系列值从B3到G3。

我想找到标准偏差并使用

进行

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

但我需要找到B3和C3，C3和D3等之间的差异，然后将其与上面的标准偏差进行比较。如何创建循环来执行此操作？

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

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