将值从特定单元格循环到 Excel 中的列

Question

我想要一个宏，通过在单元格 E3 中提供一个值，E3 的值被复制并粘贴到单元格 K17 中。然后我将修改 E3 中的值以填充单元格 K18，依此类推。

这是我当前的代码，但当然它限制了我从单元格 E3 添加所需的值，以便始终粘贴到单元格 K17：

Sub box_value()
    Range("E3").Select
    Selection.Copy
    Range("K17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D5:D10").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("K18").Select
End Sub

excel 的最终结果：

Answer 1

在单独的列中累积按顺序计算的值

Sub box_value()
    ' Find the lowest empty cell in column K and fill it with E3
    With Columns("K").Cells
        .Item(.Count).End(xlUp).Offset(1) = Range("E3").Value
    End With
    ' Clear a Quantity area
    Range("D5:D10").ClearContents
End Sub