计算时数据溢出，怎么破

n6x1u3v6

运行到下行红色的部分，提示数据溢出，怎么处理？


·······
   Worksheets("1月趋势监控1#").Activate
  Set sH = Worksheets("1月趋势监控1#")
With sH
    Set sg = .Range("1:1").Find("07-11D", lookat:=xlPart)

     If Not sg Is Nothing Then
    .Cells(2, sg.Column) = Sheets("生产日报").Cells(rg.Row, "ab")
    .Cells(3, sg.Column) = Sheets("生产日报").Cells(rg.Row + 3, "ac")
    .Cells(5, sg.Column) = Sheets("生产日报").Cells(rg.Row + 4, "w")
    .Cells(6, sg.Column) = "90.00%"
   
   .Cells(7, sg.Column) = Worksheets("生产日报").Cells(rg.Row + 4, "ag") / Worksheets("生产日报").Cells(rg.Row + 4, "ac")

   
    End If
   
  End With
    ·······

n6x1u3v6

刚才不能放附件，把附件补上。

grf1973

看看  Worksheets("生产日报").Cells(rg.Row + 4, "ac") 是不是0或空值

liulang0808

n6x1u3v6 发表于 2018-8-7 11:03
刚才不能放附件，把附件补上。

楼主附件的代码运行没有发现什么问题的
另外也与1楼上传代码不一致，建议楼主检查下看看吧

n6x1u3v6

好，谢谢各位，经提醒看出来了，是有空单元格导致的。