Question

嗨，你们需要VBA宏的帮助我有关于表格的数据，在A36到Q36的第36行，我需要根据单元格S36中的数字向下复制一行。因此，如果S36中的数字是5，则意味着我需要从该行复制第36行五次。单元格S36中的数字从0开始，如果0不复制。

Answer 1

这是基于范围的方法。您可能想要使用times_to_copy+1，我无法从您的问题中说出来。我没有测试这是否适用于公式等。代码假定活动工作表是您希望代码应用的工作表。

Sub copy_cat()

Dim main_range As Range
Dim times_to_copy As Integer
Dim copy_to_range As Range

If (times_to_copy > 0) Then
    Set main_range = ActiveSheet.Range("A36:Q36")
    times_to_copy = ActiveSheet.Range("S36").Value
    Set copy_to_range = main_range.Resize(times_to_copy, main_range.Columns.Count)
    ' or Set copy_to_range = main_range.Resize(times_to_copy+1, main_range.Columns.Count) dunno
    copy_to_range = main_range.Value
End If

End Sub

Excel vba复制行并根据单元格中的数字向下粘贴一行

1 个答案: