求助EXCEL里VB用除法出错的情况

caijiyong

EXCEL里用VB除法在有数字的情况下不会出错，在空格里情况下就会报#DIV/0!的情况，代码如下Range("H7:H56").FormulaR1C1 = "=RC[-2]/RC[-1]"，这样算总数的时候就会出现#DIV/0!的情况，
[贴图错误，请阅读“贴图帮助”。]如果用乘法，就不会出现这种情况，

EVANLEE

在 Excel 中使用 VBA 进行除法运算时出现#DIV/0!错误是因为当除数单元格为空（即值为 0）时，除法运算就会报错，而乘法运算在乘数为空时通常会将空值当作 0 处理，所以不会出现类似错误提示。
要解决除法运算中出现#DIV/0!的问题，可以通过在 VBA 代码中添加一些判断逻辑来实现。以下是一种修改你现有代码的示例方法，使得在除数为 0 或空值时返回一个特定的值（比如 0 或者空字符串等，这里以返回 0 为例）：
Sub DivideWithErrorHandling()
    Dim lastRow As Long
    lastRow = 56 '这里假设你的数据范围到第56行，可以根据实际情况修改
   
    Dim i As Long
    For i = 7 To lastRow
        If Cells(i, "G").Value <> 0 And Cells(i, "G").Value <> "" Then '判断除数单元格（这里假设是G列，对应RC[-1]）不为0且不为空
            Cells(i, "H").FormulaR1C1 = "=RC[-2]/RC[-1]"
        Else
            Cells(i, "H").Value = 0 '如果除数为0或空，直接将结果单元格（这里假设是H列，对应RC）设为0
        End If
    Next i
End Sub
在上述代码中：
首先确定了数据的最后一行（这里假设是第 56 行，你可以根据实际数据范围修改）。
然后通过循环遍历从第 7 行到最后一行的每一行数据。
在循环内部，先判断除数单元格（这里假设是 G 列，对应你原来代码中的RC[-1]）的值是否不为 0 且不为空，如果满足条件则执行正常的除法公式赋值；如果不满足条件（即除数为 0 或空），则直接将结果单元格（这里假设是 H 列，对应你原来代码中的RC）的值设为 0，这样就避免了出现#DIV/0!错误。
你可以将上述代码复制到 VBA 编辑器（通过 “开发工具” 选项卡进入，如果没有显示该选项卡，需要先在 Excel 选项中启用）中的一个新模块中，然后运行该宏即可按照修改后的逻辑进行除法运算并避免报错。



AI回答的，不知道准不准确。

caijiyong

谢谢大佬，非常详细，已解决了这个问题，谢谢