Excel输出给定数值输入的特定数值

我想输入一定数量和金额的付款，并让它们写入一行中的单元格。例6支付100.00美元，12支付200.00美元。我想让18个单元格连续显示$100 6次，然后是$200 12次。有什么建议吗？我需要根据付款的总数来调整范围。

这个公式怎么样：

=IF(SUM($A$2:A2)<$E$1*0.8;200;IF(SUM($A$2:A2)<$E$1;100;""))

---

=IF（SUM（$A$2:A2）这是你想要的更多吗？付款金额在第一列

Sub InputData()

Dim inputQty As Integer
Dim inputAmount As Integer
On Error GoTo errorHandler
inputQty = InputBox("Enter in the quantity of payments", "Payment Quantity", "XX", vbOKCancel)
inputAmount = InputBox("Enter the amount for each payment", "Payment Amount", "$XXX.xx", vbOKCancel)

If Range("A2").Value = "" Then
    Range("A1").Select
Else
    Range("A1").End(xlDown).Select
End If

Dim i As Integer
    For i = 1 To inputQty
      ActiveCell.Offset(i, 0) = inputAmount
    Next i

errorHandler:
End Sub

我猜您希望用户能够多次输入数量和金额。这里我为您提供了一些开始：

Sub DataInput()

Dim inQty As Long
Dim inAmt As Long
Dim response As Integer
Dim i As Integer

i = 0
[A1].Select

response = MsgBox("Do you want to enter?", vbYesNo, "Enter?")

Do Until (response = vbNo)
    inQty = InputBox("Please enter the quantity of payments", "Payment Quantity", 1)
    inAmt = InputBox("Enter the amount for each payment", "Payment Amount", 0)

    For i = i + 1 To inQty + i
        ActiveCell.Offset(i, 0) = inAmt
    Next i
    response = MsgBox("Do you want to enter more?", vbYesNo, "Enter?")
    i = i - 1
Loop

End Sub

如果您有任何问题，请告诉我。
我想我应该重新措辞。我需要能够输入多个付款数量和多个付款金额。例如，可能是2次付款50美元，6次付款150美元，12次付款250美元，24次付款300美元。付款金额和付款数量将由用户输入，输出将是第行e顺序付款。