溢出是因为TempA为0，如果没有满足条件的数据，使得TempA为0就会出错，可以考虑把下面的语句： Sheet3.Cells(N + 6, i) = Sheet3.Cells(N + 7, i) / TempA修改为： Sheet3.Cells(N + 6, i) = IIF(TempA=0, "错误", Sheet3.Cells(N + 7, i) / TempA)
