Значение приращения на основе подсчета с помощью нажатия кнопки

Question

Я хочу, чтобы значение было автоматически напечатано Количество раз, когда задано количество

Если вы видите мое изображение, то в качестве некоторых данных, таких как 'DEMO', указано значение Count и ValueКогда я ввожу счетчик, например, 5, тогда «Данные в значении» = «Демо» должны быть напечатаны столько раз, сколько упомянуто «Счет». Под столбцом => H

Как показано ниже: Выходное изображение Я могу перетащить ячейку к определенному счетчику.... это может сработать для меня, но когда счет 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 Drive будетВы сможете проиллюстрировать это и поделиться 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