基于按钮单击计数的增量值

Question

我希望该值应为计数时自动打印的次数

如果您看到我的图片，则有“计数”和“值”之类的数据，例如“演示” 当我输入5之类的计数时，值=演示中的数据应打印多次，因为在Column => H

下提到了Count。

就像下面的输出图像 我可以将单元格拖动到特定的计数...这可能对我有用 但是当计数为5或10时...如果计数为100或200或更多 我们必须将单元格最多拖动100个，依此类推

我想自动递增而不将单元格拖动到特定计数

我已经尝试过这个但不能正常工作...建议我如何实现这一目标

Sub Increment()

    Dim startValue
    startValue = Cells(15, 5).Value

    For i = 1 To 10 Step 1
        Cells(i, 5).Value = startValue
        startValue = startValue + 1
    Next i
End Sub

这是Google云端硬盘文件链接，您可以在此进行说明并共享https://drive.google.com/file/d/1D5GblPrcnaGQqKUwhj5YIthhgQxkHldl/view?usp=sharing

Answer 1

如果必须是VBA，那么它应该对您有用：

Sub tgr()

    Dim ws As Worksheet
    Dim rDest As Range
    Dim lCount As Long
    Dim sValue As String

    Set ws = ActiveWorkbook.ActiveSheet
    Set rDest = ws.Range("H3")

    With ws.Range(rDest, ws.Cells(ws.Rows.Count, rDest.Column).End(xlUp))
        If .Row >= rDest.Row Then .ClearContents    'Clear previous results (if any)
    End With

    lCount = Val(ws.Range("C3").Value)
    sValue = ws.Range("F3").Value

    If lCount > 0 Then rDest.Resize(lCount) = sValue

End Sub