求写excel vba中的一段代码

图片就不更新了，只更新代码。

Integer是整数型，范围：-32,768 到 32,767

Long 长整数型，范围：-2,147,483,648 到 2,147,483,647

把Dim i As Integer改为Dim i As Long即可。

【下面的代码已更新】：

Sub JiSuan()
    b = [A2]
    e = [B2]
    g = [C2]
    r = [D65536].End(3).Row + 1 '赋值r=D列最后一个数据的行号+1
    Range("D2:E" & r).Delete Shift:=xlUp '删除D2至Fr区域，准备写入结果
    Dim i As Long
    For i = 1 To g
        a = i
        d = (g - a * b) / e
        If d > 0 And d = Int(d) Then
            r = [D65536].End(3).Row + 1 '重新赋值r
            Range("D" & r) = a
            Range("E" & r) = d
        End If
        If g < a * b Then
            If [D2] = "" Then
                [D2] = "无解"
                [E2] = "无解"
            End If
            r = [D65536].End(3).Row '重新赋值r
            Range("D2:E" & r).Interior.Color = 10213316  '结果区域添加背景颜色 草绿
            Range("D2:E" & r).Borders.LineStyle = xlContinuous '结果区域添加边框线
            Exit Sub '退出Sub
        End If
    Next
End Sub

根据已经条件可以推导出如下结论：

a=b/c

d=f*e=(g-c)*e

很明显，a应该是唯一解，是否整数就看b/c是否整除；由于e没有给出值，可以是任意整数，因此d有无穷组解。

这下EXCEL公式很简单了吧。公式：

示例解：