excel - 如何在 Excel 中使用 VBA 自动填充 'x' 行数

Question

我所做的总体思路是从用户窗体中获取用户输入，将该数据添加到单行中，然后我想将该行直接复制到该原始行下方的“x”次。这种情况下的“x”行数也由用户输入的值决定。

例如，假设用户填写了用户表单，他们选择的“x”是 5。我的 VBA 代码将获取他们输入的信息，将其放在第 2 行，然后基本上复制/粘贴该行接下来的4行。然后最终结果看起来像这样(除了 C 列中的每个单元格都是“44”，我不确定为什么该列决定增加 1，但这是我需要帮助修复的另一件事):

我假设我可以编写 VBA 代码来复制和粘贴行“x”的次数，但我认为自动填充会更容易，因为它对于每一行都是相同的值。我只是不知道如何指定一个将根据用户输入的内容而改变的范围。这是我自动填充特定范围的代码，我不确定如何将其更改为不同的范围

numOfLines = (LastL - FirstL) + 1    'don't worry about how I get this, it's a number that I know is correct

   With Sheets("QuoteCSV")
    
        Sheets("QuoteCSV").Select
        
        ' Get the current row
        Dim curRow As Long
        If .Range("B1") = "" Then
            curRow = 1
        Else
            curRow = .Range("B" & .Rows.Count).End(xlUp).Row + 1
        End If
        
        ' Add items to the first row (row 2)
        .Cells(curRow, 1) = fson
        .Cells(curRow, 2) = fdiv
        .Cells(curRow, 3) = fcnum
        .Cells(curRow, 4) = fcponum
        .Cells(curRow, 5) = frdate
        .Cells(curRow, 6) = cname
        .Cells(curRow, 7) = add1
        .Cells(curRow, 8) = add2
        .Cells(curRow, 9) = city
        .Cells(curRow, 10) = state
        .Cells(curRow, 11) = zip
        
        
        'Now I want to take that row I just made and autofill it down 'numOfLines' rows

        Range("A2:K2").Select
        Application.CutCopyMode = False
        Selection.AutoFill Destination:=Range("A2:K6"), Type:=xlFillDefault 
        'need to change this line to use numOfRows somehow instead of hard-coded range
        
        
    End With
    ```

Any help is appreciated!

Answer 1

也许不是使用 AutoFill，而是使用 Resize:

With .Range("A2:K2")
    .Resize(numOfRows).Value = .Value
End With