用了除号提示溢出，提示运行错误6

正发哥

Sub zz()
    Dim d, d2, ar, cr, br

    Set d = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")

    Application.ScreenUpdating = False         
    ar = Sheet2.Range("A1").CurrentRegion
    arr = Sheet5.Range("A1").CurrentRegion      

    cr = Sheet1.[d3:d90]     '店铺条件区域
    br = Sheet1.[s3:bz90]   '库存数量存放区域
    Sheet1.Range("s5:bz90").Select
    Selection.ClearContents
    For i = 2 To UBound(ar)     '库存数量写入数组
        s = ar(i, 5) & ar(i, 3) & "-" & ar(i, 4)
        d(s) = d(s) + ar(i, 10)
    Next

    For i = 2 To UBound(arr)     '销售数量存入数组
        s = arr(i, 8) & arr(i, 3) & "-" & arr(i, 4)
        d2(s) = d2(s) + arr(i, 16)
    Next

    For i = 3 To UBound(br)
        For j = 1 To UBound(br, 2) Step 3
            br(i, j) = d(cr(i, 1) & br(1, j))
            br(i, j + 1) = d2(cr(i, 1) & br(1, j))
            br(i, j + 2) = br(i, j) / br(i, j + 1)‘这里用  / 除  号会出错，用其它加减乘都不会’求老师帮忙看下什么问题
            
        Next
    Next

    Sheet1.[s3:bz90] = br

    Application.ScreenUpdating = True
End Sub

nervfwg

那应该是除数里面有0的情况

白云无尽9987

if br(i, j + 1)<>0 then br(i, j + 2) = br(i, j) / br(i, j + 1)‘

正发哥

白云无尽9987 发表于 2018-3-23 17:12
if br(i, j + 1)0 then br(i, j + 2) = br(i, j) / br(i, j + 1)‘

搞定了，非常感谢！

正发哥

nervfwg 发表于 2018-3-23 17:08
那应该是除数里面有0的情况

是的，谢谢