Vba If…Then语句在新位置显示结果

我的工作簿中有多张工作表。我试图对D-G列求和，并对结果应用一个变量if..then语句

使用下面的代码提供了一个总数，但我不知道如何使if正常工作并显示结果

Dim colm As Long, StartRow As Long
Dim EndCell As Range
Dim ws As Worksheet
StartRow = 3
For Each ws In Worksheets
    Set EndCell = ws.Cells(Rows.Count, "c").End(xlUp).Offset(1, 1)
    If EndCell.Row > StartRow Then
    EndCell.Resize(, 4).Formula = "=SUM(R" & StartRow & "C:R[-1]C)"
    End If
    If EndCell.Row >= 0 Then J3 = "6 Free Bottles"
    If EndCell.Row >= 1000 Then
    J2 = Formula = ((EndCell.Row) * (0.05))
    J3 = "5% Discount"
    ElseIf EndCell.Row >= 3000 Then
    Range(J2) = Formula = ((EndCell.Row) * (0.1))
    Range(J3) = "10% Discount"
    End If
Next ws

---

如果要更改单元格的值，则无法使用J3=6个免费瓶子。Excel认为J3是一个变量。使用试管3，J。数值=6个免费瓶。您还可以使用RangeJ2.Value=。RangeJ2=尝试将Range对象设置为某个值，但该值不会满足您的要求

---

另请注意，这将导致问题：您的一条If语句也缺少End If。

这里有很多语法问题。。先把它修好。J3应该是范围J3或简单的[J3]。还有，你是给J2和J3赋值还是给公式赋值？啊，我明白了。我还在学习，但这是一个很大的帮助。谢谢我会让你知道我在做什么。