如何用Excel VBA实现含空数据行的Standard deviation计算及异常处理

原有代码问题说明 #

你提供的代码无法正常实现需求，存在两个核心缺陷：

1. VBA中直接调用WorksheetFunction.StDev如果计算出错，会直接抛出运行时异常中断代码，不会触发后续的IfError逻辑，错误处理机制完全不生效。
2. 没有实现你优先要求的「无有效数据直接删除行」的逻辑，仅做了错误返回空值的设计，同时固定遍历1000行的写法不够灵活，数据行数超过或不足1000时都会出问题。

可实现需求的VBA方案 #

方案1：优先删除无有效数据行（匹配你最高优先级要求）

Sub 计算标准差并删除无效行()
    Dim i As Long, lastRow As Long
    ' 动态获取C列最后一行有数据的行号，适配不同数据量
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    ' 删行必须从下往上遍历，避免删除行后导致后续行号偏移漏处理
    For i = lastRow To 4 Step -1
        On Error Resume Next
        Dim stDevResult As Double
        stDevResult = WorksheetFunction.StDev(Range("C" & i & ":V" & i))
        If Err.Number <> 0 Then
            ' 计算出错直接删除整行
            Rows(i).Delete
        Else
            Range("W" & i).Value = stDevResult
        End If
        On Error GoTo 0
    Next i
End Sub

方案2：不删行、出错返回空单元格

如果你后续不需要删除行，仅要求错误时返回空值，可以用这个简化版本：

Sub 计算标准差错误返回空()
    Dim i As Long, lastRow As Long
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    For i = 4 To lastRow
        ' 直接调用工作表公式逻辑，无需单独捕获VBA错误
        Range("W" & i).Value = Evaluate("IFERROR(STDEV(C" & i & ":V" & i & "),"""")")
    Next i
End Sub

更优非VBA方案 #

如果不需要自动化批量处理，直接用工作表公式即可，操作更简便：
在W4单元格输入公式=IFERROR(STDEV(C4:V4),"")，按住单元格右下角下拉到需要的行即可。如果需要删除无数据行，选中W列空值的行批量删除即可。

内容的提问来源于stack exchange，提问作者Lelung