sumNonZero = sumNonZero + cell.Value改为在excel2021中可以运行的代码

在Excel中，你可以使用VBA（Visual Basic for Applications）来编写宏，以便实现类似的功能。假设你想要将一个工作表中的非零单元格的值累加起来，你可以使用以下的VBA代码示例：

Sub SumNonZeroCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Dim cell As Range
    Dim sumNonZero As Double
    sumNonZero = 0
    
    For Each cell In ws.UsedRange ' 遍历工作表中已使用的范围
        If IsNumeric(cell.Value) And cell.Value <> 0 Then ' 检查单元格是否为数值且不为零
            sumNonZero = sumNonZero + cell.Value
        End If
    Next cell
    
    MsgBox "非零单元格的总和为: " & sumNonZero ' 显示结果
End Sub

要运行这段代码，请按照以下步骤操作：

1. 在Excel中按下 `Alt + F11` 打开VBA编辑器。
2. 在“项目-工程”窗口中，找到你想要运行代码的工作簿，右键点击其中一个工作表名称，选择“插入” -> “模块”，这样会创建一个新的模块。
3. 在新模块的代码窗口中粘贴上面的代码。
4. 修改 `Sheet1` 为你要累加的非零单元格所在的工作表名称。
5. 按下 `F5` 运行程序，或者关闭VBA编辑器回到Excel界面，然后在“开发工具”选项卡下点击“宏”，找到并运行刚才创建的 `SumNonZeroCells` 宏。