重新创建复杂的公式

如何解决重新创建复杂的公式

我有一个公式使文件非常繁重，因此我尝试将其编码为要运行的宏，并仅保存最终值。由于值不断变化，我将需要每天重新运行宏。

这是我的公式：

= IF（$ J2 =“ P”，IF（SUMIFS（$ D $ 1：D2，$ I $ 1：I2，I2）

这是到目前为止我编写的代码，但是它总是使我出错：

Dim J As Integer
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim a As Integer
Dim b As Integer

Set ws1 = Worksheets("Jobs")
Set ws2 = Worksheets("On hand")

J = 2

Do While Range(J & "2") <> ""

    If Cells(J,10) <> "P" Then
    Cells(J,19) = ""
    
    Else
    If Range("I" & (J - 1) & ":I" & J) = Range("I" & J) Then
    
    a = Range("D" & (J - 1)) + Range(":D" & J)
    
    If ws2.Range("B:B") = ws1.Range("I" & J) Then
    b = ws2.Application.Sum(Range("C:C"))
    
    If a <= b Then
    If b = a <= 0 Then Range("S" & J) = "Shortage"
    Else
    Range("S" & J) = ""
    
    J = J + 1
    
Loop